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INSERT As ZRAM. ASM 
.INSERT AS MAC.ASM 
© : 

..LINK 

.IDENT STR 
. PREL 

3 + 

3 INTERNALS 



INTERN 

INTERN 

INTERN 

INTERN 

INTERN 

INTERN 

INTERN 

INTERN 

INTERN 

INTERN 

INTERN 

INTERN 

INTERN 


ALSTR 

ALSTS 

BALLY 

CAT 

ENDSTR 

GETSTR 

INCUSE 

IND 

SDEL 

SFREE 

STRCMP 

SCMP 

TSTUSE 


:ALLOCATE STRING 
!ALLOCATE KNOWN SIZE 
i PARSES BALANCED PARENS 
! CONCATENATION 
i FOR ZLOAD ONLY 
! PARSE STRING LITERAL 
! BUMP USE COUNT 
I INDIRECTION 
! DELETE STRING 
iFREE STRING 
:ASCIZ STRING COMPARE 
t STRING LOGICAL COMPARE 
! TEST USE COUNT 


5 + 

9 EXTERNALS 

•J 

EXTERN ALLOC 
.EXTERN ALLOCD 
.EXTERN CLEARIT 
.. EXTERN CNTCK 
. EXTERN ERRF'GM 
.EXTERN EVLCPL 
.EXTERN FREE 
.EXTERN GETOPND 
.EXTERN GETVAR 


3 ALLOCATE CHUNK OF MEMORY 
3FREE FRAGMENT 
5 CLEAR BYTES 
3 CHECK FOR CONTROL C 
3 ERROR TRAP 

3 EVALUATE COMPILED CODE 
3 FREE MEMORY BLOCK 
5 FETCH OPERAND 
3 PARSE VARIABLE NAME 
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.EXTERN IMPTTY 
.EXTERN DUTCH 
.EXTERN POPOPND 
.EXTERN PUTOPND 
.EXTERN TEMPCHN 
.EXTERN TEMPUNC 

3 ++++ 


5READ FROM TTY 
5 OUTPUT A CHAR 
5 POP EVAL OPERAND 
5 PUT EVAL OPERAND 
5 CHAIN INTO TEMP LIST 
3 CHAIN OUT OF TEMP LIST 


3 GETSTR 

3 PARSES AND BUILDS STRING LITERALS 
3 STRINGS MAY BE ENCLOSED IN SINGLE OR DOUBLE 
5 QUOTES (WHICH MAY NOT BE NESTED) OR ANGLE 
3 OR CURLY BRACKETS WHICH MAY BE NESTED AS LONG 


3 AS THEY ARE PAIRED 

8 » 

1 


3 NEEDS s 

3 HL ~> OPEN DELIMITER 


3 RETURNSs 
3 SUCCEEDS 

3 HL -> AFTER STRING LITERAL (CLOSE DELIM) 

3 DE ~> TOP OF STRING HEADER WITH LITERAL 

5 A = TYPE STRING (&STRADR) 

3 CARRY CLEAR 

3 FAILS 

3 CARRY SET 

3 FAILS IF 1ST CHAR AFTER ASSIGNMENT OPERATOR 

3 . IS NOT A VALID OPEN DELIMITER 

l* 

3 ERRORS» 



r*. 

•; ER« COR ~~ 

« 

V 

NOT ENOUGH MEMORY 

FOR STRING 

oooi 


tt ^ TtB>> „ p(n 

GETSTRs 



0001 •" 

FDE5 

PUSH 

Y 

3 SAVE REGS 

0003**' 

C5 

PUSH 

B 

3 SAVE LENGTH 

0004" 

E5 

PUSH 

H 

5 SAVE LINE PTR 



. *J 

3 HERE WE SEARCH FOR THE OPEN 

DELIMITER OF THE 



3 STRING IN 

THE TABLE (QTAB). 

IF NOT FOUND, WE FAIL 

0005" 

7E 

MOV 

A»M 

3 A=OPEN DELIM 

0006 •" 

21 0097" 

LX I 

HiQTAB 

3 HL~>DELIM TABLE 

0009" 

01 0004 

LX I 

B,QSIZ 

3 BC=SIZE OF TABLE 

OOOC" 

EDB1 

CCIR 


5 SEARCH FOR DELIM 

OOOE"' 

2806 

JRZ 

. .SI 

5 NOT THERE? 

0010" 

37 

STC 


3 FAIL. 

0011 -• 

El , 

.„EX s POP 

H 

3 RESTORE REGS 

0012'" 

Cl 

POP 

B 


001 S'" 

FDE1 

POP 

Y 


0015" 

C9 

RET 


• 


3 + 


3 BC = OFFSET (0-4) OF DELIMITER WHICH MATCHED 
3 IT IS CONVERTED INTO A WORD OFFSET 
3 (0-8) AND USED AS INDEX INTO TABLE OF COREES- 
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5 PONDING SUBROUTINES (QSUB) WHICH HANDLE THE 
3 PARTICULAR DELIMITER 


0016*" 



.Sis MVD 

H,B 5 HL=OFFSETC 

0016" 

60 

4* 

MOV 

H, B 

0017 *" 

69 

4* 

MOV 

H+l.iB +13 

0018-" 

29 


DA El 

H 3 WORD OFFSET 

0019*" 

01 009C"' 


LX I 

B,QSUB 3BC~>SUB TABLE 

001C"' 

09 


DAD 

B 3 HL—>SUBROUTINE 

00 ID" 

4E 


MOV 

C,M 3 BC—>WHERE TO BRANC 

00 IE*" 

23 


INX 

H 3 IN THE SUBTAB 

00 IF*" 

46 


MOV 

B, M 




MVD 

Y,B 5 IY-9SUBR0UTINEC 

0020 *" 

C5 

4* M 

ifidn ty:i cy:i. 

C PUSH B 

0021 

FDEl 

+ 

+:i 

POP 

Y 



7 

M 

7 

+ 

IY -> SUBROUTINE TO GO TO 



ts 

** 

SP -> PTR TO 

OPEN DELIM 



V 

MEMORY IS ALL 

OCATED FOR THE STRING AND THE 



» 

7 

POINTER TO THE TOP OF THE BLOCK IS SAVED 



u 

7 

CALL THE PARS 

ING ROUTINE FOR THE TYPE 



7 

OF DELIMITER 

WE HAVE. THE ENDING MULL IS 



7 

M 

SAVED AND THE 

UNUSED FRAGMENT RETURNED 

0023*" 

CD 0132"' 

7 

CALL 

ALSTR 3 HL-->MEMORY BLOCK 

0026" 

E3 


XTHL 

3 SAVE PTR,HL—>DLIM 

0027;" 

.ill. 'J 


INX 

H 3 PT AFTER DELIM 




JSR 

Y 3 PARSE STRING!' 

0028 *" 

FDE5 

+ « 

IFIDN i:y 

i i:y] , i: push y 

002A *" 

FD21 0032-' 

4 

LX I 

Y,..0001 

002E *" 

FDE3 

4- 

XTIY 


0030 

FDE9 

-h 

PC IY 




4*3 



0032 *" 

93 


INX 

H 5 HL->AFTER CLOSE 

0033*" 

E3 


XTHL 

3HL—>BLOCK 

0034 *" 

CD 0039"' 


CALL 

ENDSTR 3 RETURN FRAGMENT 

0037*" 

18D8 


■JMPR 

..EX 5 AND EXIT 


5 4 * 4 * 4 * 4 * 


7 

5 ENDSTR 

5 CLEANS UP AFTER A NEWLY ALLOCATED STRING 
5 THIS INCLUDES RETURNING THE UNUSED FRAGMENT AND 
? SAVING THE PROPER LENGTH OF THE STRING 
5 IF THE STRING IS NULL, IT IS DELETED 

7 - ' 

3 NEEDS" 

5 HL -> TOP OF STRING HEADER 
5 DE —> AFTER LAST BYTE USED IN THE STRING 

5. BC = * OF BYTES LEFT IN THE BLOCK 

•j ■ ■ c'YY'.s' ■' 

5 RETURNSS 

5 DE -> TOP OF STRING CREATED 
? 0 IF NULL STRING 

5 A = TYPE STRING (fSTRADR5 
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3 CALLSs 

3 ALLOCD - RETURNS UNUSED FRAGMENT 
3 FREE -FREE IF NULL 


7 


0039" 


ENDS' 

TRs 



0039-' 

E5 


PUSH 

H 

5 SAVE PTR 

003A ■" 

D5 


PUSH 

D 


003B -' 

11 OOOA 


LX I 

D, f'SASCI I 

5 DE-UFFSET OF DATA 

003E -' 

19 


DAD 

D 

5 IF NULL, HL=DE 

003F"' 

D1 


POP 

D 

5 DE—>1ST DATA BYTE 




CLC 


5 CLEAR FOR DSBCT 

0040 -' 

B'7 

+ 

URA 

All 


0041 -' 

ED52 


DSBC 

D 

? HL=HL~DE 

0043' 

El 


POP 

H 

3 HL—>TOP OF STRING 

0044 •- 

280B 


JR 2 

.„NULL 

3 IS NULL? 




CLR 

A 

3 NULL AT END t 

0046'V 

AF 

+ „ IFN 

A 

-A, i: MV I 

A , O, 



XRA 

a:i:i 



0047-' 

12 


STAX 

D 

5 OF STR I NG 

0048" 

13 


I NX 

D 

3 FOR ALLOCD 

0049 •' 

CD 0000 s 05 


CALL 

ALLOCD 

3 RETURN FRAGMENT 

004C' 

EB 

It 

XCHG 


5 DE-OTOP OF STRING 



V ^ 

? BC 

= NO OF 

BYTES LEFT IN 8L 

OCK 



■; DE 

-> TOP 

OF STRING 




5 *SI 

_EN(DE) ^ 

= ORIGINAL LENGTH 

OF STRING 



", WE 

MUST COMPUTE THE ACTUAL 

NUMBER OF CHARACTERS 


", USED IN THE STRINGS HSLENCDE) - BC 
3 AND SAVE THIS IN THE LENGTH FIELD 


004D •" 3E08 

004F "' B7 
0050-' C9 


0051-' 11 0000 

0054'" CD 0000 s 12 


“ 

PUSH 

D 

3 SAVE TOP PTR 

V 

LXI 

H,$SLEN 

3HL=0FFSET OF LENG 

n 

V 

DAD 

D 

5 HL—>LENGTH FIELD 

V 

MOV 

E.M 

3 DE=OLD LENGTH 

H 

7 

I NX 

H 


u 

7 

MOV 

D ; M 


a 

7 

XCHG 


3 HL=OLD LENGTH 

« 

7 

DSBC 

B 

3 HL=ACTUAL LENGTH 

? 

XCHG 


3 DE-LENGTH 

M 

7 

MOV 

Mi D 

5 SAVE LENGTH 

u 

7 

DCX 

H 


7 

MOV 

M,E 


.7 

POP 

D 

3 RESTORE TOP PTR 

„ .EXs 

MVI 

A,$STRADR 

3 RETURN TYPE STRIN 


CLC 


3 SUCCEEDC 

+ 

ORA 

A3 



RET 



5 + 




5 COME H 

[ERE WHE 

N STRING IS NU 

ILL 

5 RETURN 

i DE-0 



7 

..NULLs 

LXI 

D, 0 

3 ZERO RETURN VAL 


CALL 

TEMPUNC 






TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 PAGE 5 

STR -STRING - STRING ASSIGNMENT MODULE 


0057 CD 0000 SO A CALL FREE 5 FREE THE STRING 

005A' - 18F1. JMPR ..EX 

‘j 

It 

7 

; CAT 

3 CONCATENATES TWO STRING OPERANDS FROM EVALUATOR 
3 OPERAND STACK, PUTS RESULT ON STACK 

tt 

7 

5 NEEDSs 

5 IY—I>OPERAND B (STRING) 

5 OPERAND A (STRING) 

n 

7 

3 RETURNSs 

IY~>RESULT (OPERAND A St OPERAND B) 

It 

7 

5 CALLS5 

3 ALSTR ~ ALLOCATE STRING 
5 ENDSTR - RETURN FRAGMENT St CLEAN UP 
3 CAT - INTERNAL CAT ROUTINE 

5 PGPDPN.D* GETOPND, PUTOPND - GET St SAVE OPERANDS 


005C *“ 

08 


CATs 

. BYTE 

$STRADR 


005D 

CD 

0000 s OF 


CALL 

■ ROPOPND 

5 GET OPERAND B 

0060 •“ 

D5 



PUSH 

D 

3 SAVE OPND B 

0061 *“ 

CD 

0132'' 


CALL 

ALSTR 

3 ALLOCATE MEMORY 

0064 *“ 

E5 



PUSH 

H 

5 SAVE TOP PTR 

0065*“ 

D5 



PUSH 

D 

5 SAVE DATA PTR 

0066“ 

CD 

0000 s OB 


CALL 

GETOPND 

3 GET OPERAND A 

0069“ 

El 



POP 

H 

3 HL-->D AT A AREA 

006A “ 

EB 



XCHG 


3 HL“>FROM,DE—>T0 

006B 

CD 

007A" 


CALI- 

CATS 

3 COPY OVER A 

006E “ 

El 



POP 

H 

3 HL—>TOP OF MEMORY 

006F “ 

E3 



XTHL 


3HL->0PND B 

0070“ 

CD 

007A”' 


CALL 

CATS 

3 COPY OVER B 

0073 •“ 

El 



POP 

H 

5 HL“>TOP OF MEMORY 

0074“ 

CD 

0039 •" 


CALL 

ENDSTR 

3 CLEAN UP 

0077*“ 

C3 

0000s10 

U 

V 

3 CATS 

JMP 

PUTOPND 

3 SAVE NEW STRING 




3 INTERNAL CAT 

ROUTINE, i 

COPIES OVER A STRING FROM 




3 A PREVIOUSLY 

CREATED S 

TRING TO A NEW BLOCK 




3 (ATTE 

tt 

3 NEEDS 

MPTS TO 

FREE OLD 1 

STRING) 




3 HL 

-> TOP 

OF NEW STRING TO COPY 




5 DE 

-> NEXT 

FREE DATA 

BYTE IN MEW BLOCK 




3 BC 

n 

= #. OF 

BYTES LEFT 

IN BLOCK 




' 7' . 

5 RETUR 

NS s 






5 DE 

~>'AFTE 

R LAST BYT! 

E COPIED (IN NEW 





ALLOCATED BLOCK) 





BC 

= # OF 

BYTES LEFT 



HL DESTROYED 
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3 ERRORSs 

3 ER.COR - NOT ENOUGH MEMORY FOR STRING 

U ■ 

. 

; CALLS;: 

5 SPREE - FREE COPIED STRING 


007A” 


CATS': 

TSTD 

H 

5 NULL STRING?! 

007A" 

7C 

~b 

MOV 

A,H 


007B-’ 

B5 

•4 

ORA 

H 

+ 13 

007C"' 

C8 


RZ 


3 RETURN THEN 

007D "* 

E5 


PUSH 

H 

3 SAVE STRING PTR 

007E 

D5 


PUSH 

D 

3 SAVE MEM PTR 

007F 

:i. i oooa 


LX I 

D,*SASCII 

5 GET 1ST DATA 

0082 *** 

19 


DAD 

D 

3 ADDR IN HL 

0083 *’* 

Dl. 


POP 

D 

5 DE -> NEW BLOCK 

0084** 


. ..Sis 

TST 

M 

3 SOURCE BYTE NULL? 

0084-' 

7E 

+.IFN M 


-A, i: MOV 

a i m :i 

0085-' 

B7 

4- 

ORA 

AI! 


0086 

2807 


JRZ 

. . EX 

3 EXIT THEN 

0088-' 

EDAO 


LDI 


5 COPY OVER ONE 

008A •" 

E2 0093 -' 


JPO 

CORERR 

3 OUT OF MEMORY! 

008D •- 

18F5 


JMPR 

.SI 

3 TRY NEXT ONE 

008F -' 

El 

. .EX 3 

POP 

H 

5 HL -> TOP 

0090 -' 

C3 0191-' 


JMP 

SFREE 

3 TRY TO FREE 

0093 -' 


CORERR s 

ERROR 

ER. CORi: 


0093-' 

CD 0000s08 

+ 

CALL 

ERRPGM 


0096"' 

IB 

+ 

BYTE 

ER.COR 



+ 1 ! 

“ -{-"I--|—b 




« 

3 QTAB 

- QSUB 




3 TABL 

E OF ALLOWABLE OPEN DELIMITERS FOR 

STRINGS 



3 AND 

« 

7 

THE CORRESPONDING SUBROUTINES TO HANDLE THEM 

0097 -' 

5B7B222700 

QTABs 

. ASCI Z /£{"■"/ 


0004 


QSIZ 

= „ — QTAB - 1 


G09C •" 

00A4-" 

QSUBs 

„ WORD ..SING 5 SINGLE QUOTE 


009E " 

00B4-" 


. WORD . DOUB 3 DOUBLE QUOTE 


00A0-" 

00C4-" 


. WORD „ .CURB 3 CURLY BRACKET 


00 A2 •" 

00D9 •" 

« + + 4.4. 

.WORD ..SQRB 3 SQUARE BRACKET 




3 . .SING ..DOUB ..SQRB ..CURB 

3 ROUTINES TO PARSE STRINGS COPY FOR 




3 DIFFI 

tt 

ERENT SETS OF DELIMITERS 




■3 

3 NEED: 

8 “ 




3 HL 

AFTER OPEN DELIMITER IN INPUT S 

TRING 



3 DE 

“> WHERE TO START PUTTING DATA IN 

BLOCK 



? BC 

= SIZE OF BLOCK (BYTES) 
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PAGE 7 

STR 

STRING — S 

TRIMG ASSIGNMENT 

MODULE 




5 RETURNSs 





5 HL -> AT 

ENDING DELIMITER 




; DE -> AFTER LAST CHAR IN 

STRING 



5 BC = NO 

OF BYTES LEFT 




*i 

? CALLSs 





5 GETLIN -- 

GET NEW LINE OF 

INPUT 



T 

5 ERRORSs 



' 


? ER.COR - 

•i 

OUT OF MEMORY . 


00 A4 


u __ 

>■7 

..SINGs TST 

M 

5 END OF LINE?!! 

LL 00 A4" 

7E 

+„IFN M 

-A? ■> ?t MOV 

A 7 M J 

00 A 5’* 

B7 

+ ORA 

All 


00A6 

CC 0107" 

C2 

GETLIN 

5 GET NEW LINE 

00 A 9 " 

7E 

MOV 

A,M 

s A=CURRENT CHAR 

00AA" 

FE27 

CPI 

II 1! 

?SINGLE QUOTE? 

00 AC-' 

C8 

RZ 


5 YES? RETURN 

00 AD 

EDAO 

LDI 


5XFER A CHAR 

00 At- •- 

E2 0093 x 

JPO 

CORERR 

?OUT OF CORE? 

00B2" 

1SF0 

•JMF'R 

..SING 


00B4 


» „ DOUB.s TST 

M 

5 END OF LINE?!: 

00B4-' 

7E 

+„IFN M 

-A, l MOV 

A 7 M J 

00B5 •** 

B7 

+ ORA 

A'J 


00B6-' 

CC 0107" 

CZ 

GETLIN 

5 GET NEW LINE 

00B9" 

7E 

MOV 

A> M 

5 A=CURRENT CHAR 

00 BA-- 

FE22 

CPI 

.•* II .** 

? DOUBLE QUOTE? 

00BC" 

RR 

RZ 


5 YES? RETURN 

00BD-' 

EDAO 

LDI 


SXFER A CHAR 

OOBF-' 

E2 0093" 

JPO 

CORERR 

3 OUT OF CORE? 

00C2" 

18F0 

JMPR 

« «DUUB 


00C4 " 


„.CURBS TST 

M 

5 NO MORE?C 

00C4-' 

7E 

+ ,. IFN M 

-A, C MOV 

A 7 M :s 

0005 

B7 

+ ORA 

A] 


00C6 •" 

CC 0107" 

CZ 

GETLIN 

3 GET NEW LINE 

00C9 •" 

7E 

MOV 

A 7 M 

5 RECURRENT CHAR 

OOCA" 

FE7D 

CPI 


3 CLOSE BRACKET? 

OOCC 

cs 

RZ 


3 YES? RETURN 

OOCD" 

FE7B 

CPI 

" I" 

3 OPEN BRACKET? 

OOCF 

CC 00D2" 

CZ 

. . CUR I 

3 DOWN A LEVEL 

G0D2" 

EDAO 

..CURis LDI 


3 XFER A CHAR 

00D4" 

E2 0093-' 

JPO 

CORERR 

3 OUT OF CORE? 

00D7 "' 

18EB 

JMPR 

..CURB 


00D9 " 


..SQRBs TST 

M 

3 NO MORE? E 

00D9-" 

7E 

+.IFN M 

-A, L MOV 

A 7 M J 

OODA" 

B7 

+ ORA 

A'J 


OODB" 

CC 0107" 

CZ 

GETLIN 

3 GET NEW LINE 

OODE •- 

7E 

MOV 

A,M 

5A=CURRENT CHAR 

OODF •" 

FE5D 

CPI 

"j" 

3 CLOSE BRACKET 

OOEl •- 

C 8 

RZ 


3 YES? RETURN 

00E2 ■' 

FE5B 

CPI 

" C " 

3 OPEN BRACKET? 

00E4-" 

CC 00E7" 

\ '■■■' . . CZ 

..SQRI 

5 DOWN A LEVEL 

00E7 " 

EDAO 

..SQRIS LDI 


3 XFER A CHAR 

00E9 •" 

E2 0093" 

JPO 

CORERR 

3 OUT OF CORE? 
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OOEC" 1SEB JMPR . „ 8 QRB 

5 ++H-H- 

3 BALLY 

5 PARSES OVER BALANCED DELIMITERS 

u 

5 NEEDSs 

3 HL -> OPEN DELIM 
3 D = OPEN DELIMr E = CLOSE DELIM 

II 

3 

3 RETURNSs 

5 HL -> AFTER LAST CLOSE DELIM 
? 

3 ERRORS3 

ER.PAR -UNBALANCED PARENS 


OOEE 


BALLYs 

TST M 

5 NULL? C 

DO EE" 

7E 

+ .■IFN M 

-A, L MOV 

Ai M 

OOEE" 

B7 

4- 

ORA a:j 

ZERROR ER.PAR E 


OOF 0-" 

2004 

4* 

■JRNZ ..0002 


00F2 •" 

CD 0000SOS 

4 

CALL ERRPGM 


OOFS'*’ 

2 A 

4 

.BYTE ER.PAR 


00F6" 


+ ■•■ 0002 * 

I 


00F6" 

FEOA 


CPI NL 

ZERROR ER.PART 

3 NEWLINE? 

OOFS •" 

2004 

4 

JRNZ ..0003 


OOF A 

CD 0000s03 

4* 

CALL ERRPGM 


OOFD 

2 A 

4* 

.BYTE ER.PAR 


OOFE 


4 MM 0003s 



OOFE 

90 


I NX H 

3 HL~>NEXT CHAR 

OOFF*’ 

BB 


CMP E 

7 CLOSE? 

o :i. oo ■" 

CS 


RZ 

5 RETURN 

oioi" 

BA 


CMP D 

3 OPEN? 

0102 " 

CC OOEE" 


CZ BALLY 

3 PARSE AGAIN 

0105" 

18E7 

5 - 1 H-++ 

JMPR BALLY 




5 GETLI 
5 READ 

N 

A LINE OF INPUT OFF TTY 




3 STORE 

S NEWLINE AT END OF OLD 

LINE 



3 NEEDS 

M 




3 DE 

-> NEXT AVAILABLE SPOT F 

OR A CHAR 



5 BC 

= NO OF BYTES LEFT FOR C 

:HARS 



? 

3 RETUR 

NSs 




3 HL 

-> 1ST CHAR OF NEW LINE 

READ 


DUTCH - OUTPUT PROMPT 
INPTTY ~ INPUT CHAR 
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0107-' 

3E0A 

GETLINs 

MVI 

A,NL 

3 OUTPUT NEWLINE 

0109-' 

12 


STAX 

D 

5SAVE IN BLOCK 

010 A -' 

13 


INX 

D 

3 DE”>NEXT SPOT 

dog." 

OB 


OCX 

B 

3 BUMP # BYTES 

0 IOC"' 

78 


MOV 

A, B 

3 IF BC = 0 

010D-" 

Bl 


ORA 

c 

3 NO MORE CORE 

01OE 

CA 0093 "' 


JZ 

CORERR 


0111 "' 

3E2B 


MVI 

A r "' + 

3 PROMPT WITH + 

0113"' 

CD 0000sOE 


CALL 

OUTCH 


0116-' 

21 660C 


LXI 

H,KBLOCK+$MIBEND 

1 3 HL—>BUFFER COUNT 

0119 " 

3A 6260 


LDA CS 

FLAG 


011C"" 

B7 


ORA A 


3 TEST IT 

01 ID" 

2803 


•JRZ . . 

OK 

5 IS NOT ~S 

01 IF"' 

21 66A8 


LXI H, 

CSBLOK+$MIBEND 

5 PROPER BUFFER 

0122" 

3600 

* .. OK s 

MVI 

M7 0 

3 CLEAR BUFFER COUNT 

0124-' 

CD 0000s07 

. . G1 s 

CALL 

CNTCK 

5 CHECK FOR CONTROL C 

0.1.27-' 

CD 0000SOD 


CALL 

I IMP TTY 

3 READ IN CHARS 

012 A •" 

20F8 


JRMZ 

„ . G1 

3 UNTIL NULL 

012C "' 



INX 

H 

3 HL—>1ST CHAR 




TST 

M 

5 NO MORE? C 

012D"' 

7E 

+ » IFN M 


-A, I! MOV 

A/M I 

012E-" 

B7 

4* 

ORA 

All 


012F •" 

CO 


RNZ 


5 RETURN IF SO 

0130"' 

1805 


JMPR 

GETLIM 

5 ELSE GET MOTHER LINE 



. ++4.4. 






5 

5 ALSTR 






3 ALLOC 

ATES ME 

MORY FOR A STRING 




"i 

. returns s 





5 HL 

-> TOP 

OF STRING BLOCK 




5 DE 

-•> 1 ST 

AVAILABLE CHAR FOR 

: DATA 



3 bc 

- NO OF 

DATA BYTES IN BLO 

CK 



'i 

3 HL- — 

>fr4H^4RHf4f4f- 





# TYPE 

$STRADR 




» 

7 





f 

# SIZE 

# SET BY ALLOC 




? 

4^4RRf4HRf4f- 




«« 

# FLAGS # CLEARED 




5 

4RRRRRI4RR** 




tt 

7 

# TEMP 

# LINKED INTO 




7 

# PTR 

# TEMP LIST 




«t 

7 





Vf 

■* USE 

# SET TO 0 



5 COUNT * «ONE BYTE ONLY) 

5 -JRRHRRRHHi- 

3 * STRING# SET TO MAX 

3 # LENGTH# POSSIBLE 

3 ##*###*## 

5 * NULL # 

; ##*###### 

S DE-># DATA # 

3 * * 
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STR 

STRING — STRING A 

SSIGNMENT MODULE 




u 

7 

? 

CALLSs 





7 

ALLOC - AL 

LOCATE A BLOCK 




« 

CLEARIT - 

CLEAR BYTES 




? 

7 

TEMPCHN - 

CHAIN INTO TEMP LI 

:st 

©132' 


M „ 

7 

AL 

STRs 



0132-' 

3EFF 


MV I 

A 7 — 1 

5 UNKNOWN SIZE 

0134" 

CD 0000 s 04 

AL 

STSs CALL 

ALLOC 

5 ALLOCATION 

0137"' 

E5 


PUSH 

H 

5HL—>TOP OF BLOCK 

0138"' 

E5 


PUSH 

H 

•TWICE 

0139 •" 

21 FFF5 


LX I 

H,-$S ASCI 1-1 

5 HL=-OFFSET OF DATA 

013C "' 

09 


DAD 

B 

•“ HL—MAX # CHARS 

013D' 

E3 


XTHL 


” SAVE IT 

013E"' 

3608 


MV I 

M 7 fSTRADR 

3SET TYPE 

0140 •" 



I NX 

H 


0141"' 



I NX 

H 

5 SKIP SIZE 

0142" 

01 0008 


LX I 

B 7 8 

3 CLEAR FLAGS-NULL 

0143*“ 

CD 0000s06 


CALL 

CLEARIT 

3 (8 BYTES) 

0148*“ 

Cl 


POP 

B 

5GET SIZE BACK 



R 

7 

LX I 

D 7 $bAbl, I I 

3 DE-OFFSET OF DATA 



u 

7 

DAD 

D 

? HL—>1ST DATA BYTE 



it 

7 

PUSH 

H 

5 SAVE IT 



u 

7 

DCX 

H 

;HL—>ZERO BYTE 



7 

DCX 

H 

3HL—>HI-ORDER LENGTH 



u 

7 

MOV 

M, B 

3 STORE LENGTH 



? 

DCX 

H 

3 HL->L.O~ORDER LENGTH 



» 

7 

MOV 

M 7 C 




7 

POP 

D 

5 DE -> DATA 

0149" 

11 0003 


LX I 

D,$SASCI1-2 

3 DE-OFFSET OF DATA 

014-C"' 

19 


DAD 

D 

3 HL -> DATA 

014D"' 

EB 


XCHG 


5 DE -> DATA 

014E-" 

El 


POP 

H 

5 RESTORE TOP PTR 

014F"' 

C3 0000s11 


JMP 

TEMPCHN 

3 INTO TEMP LIST 



H “1“ 

» 

7 

7 

T«TT 

TSTUSE 





7 

u 

TESTS THE US 

E COUNT (OF A STR! 

i:ng) 



7 

u 

7 

NEEDSs 





7 

n 

HL -> TOP 

OF BLOCK (HEADER) 




7 

7 

RETURNSs 





7 

REGS UNCHANGED 




7 

Z BIT SET 

IN CC-'S IF USE COUNT ($USE) IS 0 



7 

7 

C BIT SET 

IF STRING IS NULL 

(HL-0) 

0152' 


TS 

TUSEs 






TSTD 

H 

; IF NULL7 SET CARRYII 

0152" 

7C 

+ 

MOV 

A 7 H 


0153" 

B5 

-I- 

ORA 

H 

+13 

0154' 

37 


ST C 


3 AND RETURN 

0155"' 

08 


RZ 
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0156" 

E5 

PUSH 

H 



0157 

D5 

PUSH 

D 



0158*** 

11 0005 

LX I 

D,*USE 

5 OFFS 

;ET OF USE COUNT 

0.1 SB- 

19 

DAD 

D 

5 HL-:: 

USE COUNT 



TST 

M 

5 SET 

cc-si: 

015C "■ 

7E 

+„IFN M 

-a, r: mov 

A,M 

3 

0.1.5D •" 

B7 

+■ ORA 

A3 



015E •" 

D1 

POP 

D 



015F 

E.1. 

POP 

H 



0160-' 

C9 

RET 





5 -IH-++ 





5 INCUS 







? INCREMENTS 

THE USE COUNT OF 

AN ALLOCATED BLOCK 




•3 

5 NEEDS 

» 






5 DE 

-> HEADER OF BLOCK 





It 

$USE 

FIELD BUMPED 





5 CALLS 

j; 






M 

W 

7 

TEMPUNC - UNCHAIN FROM 

TEMP LIST 

0161 ■" 



INCUSES 

TSTD 

D 

S IF DE~0, NO CHECKS: 

0161 

7A 


-1- 

MOV 

A 7 D 


0162-' 

B3 


4* 

ORA 

D 

+ 11 

0163 -' 

cs 



RZ 



0164-' 

E5 



PUSH 

H 


0165**’ 

21 

0005 


LX I 

H,$USE 

”DE=OFFSET OF USE COUNT 

0168 •" 

19 



DAD 

D 

% HL—>USE FIELD 





TST 

M 

5 CHECK ITC 

0169- 

7E 


+«IFN M 


-A 7 i: MOV 

A 7 M 3 

016 A •" 

B7 


-h 

ORA 

All 


0i6B- 

EB 



XCHG 


5 HL—>TOF‘ OF BLOCK 

016C- 

CC 

0000s12 


CZ 

TEMPUNC 

? OUT OF TEMP LIST 

016F- 

EB 



XCHG 



0170"' 

34 



I NR 

M 

S BUMP USE COUNT 

0171- 

F2 

0179- 


UP 

« OUT 

S>0? OK TO EXIT 

0174- 

35 



OCR- 

M 

5 RESTORE IT 





ERROR 

ER,USE 

s BAD USE COUNTS: 

0.175- 

CD 

0000 s 08 

“i- 

CALL 

ERRF'GM 


0178- 

42 



. BYTE 

ER.USE 





4 I! 




0179- 

El 


MH OUT» 

POP 

H 


017 A - 

C9 


* 

RET 




5 SPREE, SDEL 

5 DELETE A STRING IF ITS USE COUNT IS 0 
? SDEL WILL DECREMENT THE USE COUNT BEFORE FREEING 
S WORKS FOR NULL STRINGS 

7 

? NEEDS;: 

? HL -> TOP OF STRING 
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SPREE, SDEL - STRING DELETION 


5 RETURNS2 
5 REGS UNCHANGED 

5 STRING GARBAGE COLLECTED IF USE COUNT IS 0 

*j 

5 CALLS* 

S TSTUSE - CHECK USE COUNT 
5 TEMPUNC - CHAIN OUT OF TEMP LIST 
? FREE - FREE THE STRING 


017B "■ 



SDEL* 

TSTD 

H 

5 NULL?C 

017B-" 

7C 


~j~ 

MOV 

A, H 


017C" 

B5 


• 4 “ 

ORA 

H 

+ 1.1 

017D •" 

C8 



RZ 


5 RETURN THEM 

017E-- 

1™ i-j 



PUSH 

H 


017F-' 

D5 



PUSH 

D 


0180-" 

11 

0005 


LX I 

D,$USE 

;USE COUNT OFFSET 

0183"' 

19 



DAD 

D 

? HL—>USE COUNT 

0184-" 

D1 



POP 

D 


0185'. 




DCR 

M 

?DEC IT 

0186' 

El 



POP 

H 


0187' 

CA 

0000* OA 


JZ 

FREE 

? FREE IF 0 

018 A ' 

FO 



RP 


5 IF >0, RETURN 

01 SB ' 

CD 

0000*12 

SFEX * 

CALL 

TEMPUNC 

? OUT OF TEMPS 

018E ' 

C3 

0000* OA 


JMP 

FREE 

5FREE IF 0 

0191 ' 
0191' 

CD 

0152' 

SFREE* 

CALL 

TSTUSE 

? TEST USE COUNT 

0194' 

D8 



RC 


° DONT FREE I F NUL! 

0195/ 

FA 

0000 * OA 


JM 

FREE 

?FREE IF MEG 

0198' 

28F1 


JRZ 

SFEX 

?UNCHAIN, FREE 

019A ' 

C9 


» -j—j- -}•• 

» 

? IND 

RET 




5 INDIRECTION OPERATOR - CONVERTS A STRING TO A NAME 

It - 

* 

? NEEDS* 

5 IY~>OPERAND B (STRING) 

■J OPERAND A tp) 

« 

V 

? RETURNS* 

5 IY->RESULT (NAME) 

? MAKES A NAME OUT OF THE STRING OPERAND, ATTEMPTS 

? TO FREE THE STRING (IF *USE IS 05 

5 DESTROYS DE, HL 

? ... 

5 CALLS*. 

? GETOPND, PUTOPND, POPOPND - PUSH, POP OPERANDS 
? GETVAR - PARSE NAME 

5 SFREE - FREE STRING 

“} 

? ERRORS* 

? EE.NAM ~ STRING NOT A LEGAL NAME 
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INDIRECTION PROCESSING 


0198"' 

08 


INDs .BYTE 

$STRADR 


019C ' 

CD 0000s 

OF 


CALL 

POPGPND 

3 DE->STRING HDR 

019F"' 

D5 



PUSH 

D 

3 SAVE STRING 





MVD 

H, D 

3 HL~>STRING C 

01 AO" 

62 


4* 

MOV 

H,D 


01A1-" 

6B 


4* 

MOV 

H+1, D 

+ 11 

01A2" 

11 OOOA 



LX I 

D,$SASCII 

3 DE=OFFSET OF DATA 

01 AST 

19 



DAD 

D _ *0 
Y CS/+9P - • ■ v 

GEIVAR- Y° 

3HL.-SI.ST CHAR OF STRING 

0.1A6" 

FDE5 



PUSH 

3 SAVE OUR STACK PTR 

01 AS"’ 

CD 0000s 

OC 


CALL 

SPARSE THE NAME 





CERROR 

ER.NAM J 

3 NOT A NAME iC 

01AB-" 

3004 


+ 

JRNC . 

„ 0004 


U J. A D * 

CD 0000s 

08 

4* 

CALL E 

RRF’GM 


01 BO" 

29 


4* 

.. BYTE 

ER.NAM 


01B1"' 

01B1"‘ 

280D 


'+*« 

,0004s l csl t 

■ ^ JRtyc. 

qeJv&s 

. „ 11 

5 WAS VARIABLE 

01B3 "' 

DDES 



PUSH 

X 

3 SAVE OUR X 





MVD 

X, Y 

5 IX—SFUIMCTI ON CODE C 

0115- 

FDE5 



IFIDM CXI CXI 

, C PUSH 

Y 

01B7- 

DDE 1 


4* 

> “I 

POP 

X 


01B9- 

CD 0000s 

09 

4* .} 

CALL 

EVLCPL 

3 EVALUATE FUNCTION 

01BC"' 

DDE1 



POP 

X 

3 RESTORE X 

01 BE"' 

1803 



JMPR 

, . 12 

3 SKIP AROUND PUT 

0 1 co¬ 

CD 0000s 

10 


. I1s CALL 

PUTOPND 

3 PUSH THE RESULT 

des "' 

FDE1 


M 

„I2S POP 

Y 

3 GET IY PTR 

01C5- 

El 



POP 

H 

3HL.-SSTRIMG 

01C6- 

C3 0191- 



•JMP 

SFREE 

3 TRY TO FREE 




7 

++++ 




3 STRCMP 

3 COMPARES TWO ASCIZ STRINGS, SETS CCS 
? NEEDS : 

3 DE -> STRING2 (OPERAND B) 

3 HL -> STRING! (OPERAND A) 

7 

5 RETURNSs 




3 DESTROYS 

HL, DE 




3 Z BIT 

SET 

STRING! = STRINGS 



3 N BIT 

SET 

STRING! < STRINGS 



3 ELSE 

n 

3 


STRING1 > STRINGS 

01C9- 


H r_1 r.J.t r... t gii i_i_ 

n 

STRCMPs 



01C9- 

1A 

LD AX- 

D 

5 GET STRING! CHAR 

01C A - 

96 

SUB 

M 

5 FIND DIFF 

01CB - 

CO 

RNZ 


3 NOT EQ? RETURN 

01 cc - 

B6 

ORA 

M 

3 END OF STRING? 

01 CD"' 

C8 

RZ 


3 RETURN 

01CE "' 


I NX 

H 

3 NEXT CHARS 

01CF- 

13 

I NX 

D 


01 DO"' 

1SF7 

JMPR 

STRCMP 

Y 3 GO AGAIN 


~|“ 4 * 4 * 4 '' 
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STRING COMPARISON 


5 SCMP 

5 LOGICAL STRING COMPARE ROUTINE 

« 

■J 

3 NEEDSs 

5 IY—>OPERAND A (STRING) 

3 OPERAND B (STRING) 

u 

* . 

3 RETURNSs 
3 DE = 0 

5 BOTH STRING OPERANDS POPPED OFF AMD FREED 
3 CC-'S SET FOR COMPARISON 
3 Z BIT OPERAND A = OPERAND B 

3 N BIT OPERAND A < OPERAND B 

5 ELSE OPERAND A > OPERAND B 

3 THE NULL STRING IS CONSIDERED SMALLER THAN ALL 
3 OTHER STRINGS 
S 

3 CALLSs 

3 STRCMP - COMPARE ASCIZ STRINGS 
3 SFREE - GARBAGE COLLECT STRINGS 
5 POPOPND - POP OFF STRING 


0102* SCMP s 

5 + 

3 FIRST WE POP OFF THE 2 STRING OPERANDS AND 
3 CHECK IF THE POINTERS ARE EQUAL. IF BOTH STRINGS 
3 ARE NULL OR BOTH ARE THE SAME STRING THIS WILL 
3 OCCUR. IF THERE ARE 2 POINTERS TO THE SAME STRING, 
5 IT CAN BE ASSUMED THIS STRING HAS A NON-ZERO USE 
5 COUNT AND NEED NOT BE DELETED BEFORE EXIT. HENCE 
3 IF THE PTRS ARE EQUAL WE JUST RETURN WITH Z SET 


0102 ■" 

CD 0000"OF 

V 

CALL 

POPOPND 

3 GET OPNDB 

01D5 ■" 

D5 

PUSH 

D 

3 SAVE PTR TO B 

01 DA “ 

EB 

XCHG 


3 HL—>OPND B 

01D7*” 

CD 0000sOF 

CALL 

POPOPND 

5 DE—>OPND A 

01 DA-' 

B7 

CLC 

+ ORA 

All 

3 FOR DSBCi: 

01DB 

ED52 

DSBC 

D 

3 HL=DE? 

01DD 

El 

POP 

H 

3 HL~>B, DE-->A 

01 DE" 

2823 

JRZ 

.„SRET 

3 RETURN IF EQ 

01E0" 

E5 

i 1 

3 HERE WE CHECK IF OPERAND A OR OPERAND B IS NULL 
3 WE KNOW THAT THEY ARE NOT BOTH NULL OR WE WOULD 
5 NOT HAVE GOTTEN THIS FAR. CONSEQUENTLY, IF A 

3 IS NULL WE RETURN WITH N BIT SET (<) 

3 IF B IS NULL WE RETURN WITH CCS CLEAR (>) 

ti j.t,'. 

7 ■ A .. ■ • . A. ■; . ' 

PUSH H - 3 SAVE OPNDB 

01E1-" 

D5 

PUSH 

D 

3 SAVE OPNDA 

01E2 •" 

7C 

MOV 

A, H 

3 CHECK IF B IS 

01E3 •" 

85 

ADD 

L 

3 NULL STRING 

01E4-" 

3E01 

MV I 

A, 1 

3 A NULL, RETURN N 

01E A •" 

2810 

JRZ 

. „ OUT 

3 BIT SET FOR < 
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STR 

- STRING - 

STRING ASSIGNMENT MODULE 


STR] 

CNO COMPARISON 




DIES- 

7A 

MOV 

A, D 

5 CHECK IF A IS 

01E9" 

o o 

ADD 

E 

5NULL STRING 

01E A'' 

3EFF 

MV I 

A 7 1 

SB NULL, RETURN NO 

01 EC" 

280A 

•JRZ 

. . OUT 

SCC-’S SET FOR > 



7 *+* 

5 NOW WE KNOW 

NEITHER STRING I 

S NULL AND WE MUST 



5 COMPARE THE 

ASCII PARTS UNTIL AN INEQUALITY OR 



5 ENDING NULL 

IS FOUND 




3 HL -> OPERAND B 

5 DE -> OPERAND A 


01 EE" 

01 000A 

■3 

LX I 

B,$SASCII 

S GET DATA PTR 

01 FI •- 

09 

DAD 

B 

S HL—>OPNDB DATA 

01F2" 

EB 

XCHG 


5 DE-~>B DATA, HL->A 

01F3" 

09 

DAD 

B 

S HL—>A DATA 

01F4" 

EB 

XCHG 


3 HL“>B,DE—>A 

01FS" 

CD 01C9" 

CALL 

STRCMP 

3 COMPARE THEM 



3 + 

S EXIT POINT 

- A HAS CCS FOR S 

TRING COMPARE 



5 HL,DE BOTH 

POINT TO OPERANDS 

OR ARE NULL 



5 WE ATTEMPT 

TO FREE BOTH OPERANDS AND LOAD 



5 A 0 INTO DE 

FOR RETURN,. THE 



5 COMPARE INFO 


7 ***** 


0.1.F 8-' 

47 


.„OUTs 

MOV 

B, A 


5 SAVE CC SET 

01F9 " 

El 



POP 

H 


3 HL-TOPND 

01 FA" 

CD 

0191" 


CALL 

SFREE 


SKILL IT 

01FD" 

El 



POP 

H 


S HL->NUTHER OPND 

01FE " 

CD 

0191" 


CALL 

SFREE 


SKILL THIS ONE 





TST 

B 


5 TEST RETURN CCC 

0201" 

78 


+.IFN B 


-A, £ 

MOV 

A, B .1 

0202 " 

B7 


+ 

ORA 

AT 



0203 " 

11 

0000 

..SRETs 

LX I 

D, 0 


5 LOAD RETURN 

0206" 

L-V 


.END 

RET 
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AASN 

005F 

ALLOC 

0000s04 

X 

ALLOCD 

0000s05 X 

ALSTR 

0132 “ 

ALSTS 

0134 : 

ARGEND 

6252 


ARGSTK 

60CC 

BACKGR 

65CC 

BALLY 

OOEE 3 

BLANK 

0020 


BOTRAM 

6000 

BOTTOM 

64A9 

CAT 

G05C *** : 

CATS 

007A" 


CHARSL 

65DD 

CLEAR! 

0000 s-0 

CLEARS 

60 C A 

CNTCK 

0000s07 

X 

GNTRL 

00 oc 

CNTRLC 

65 CD 

CNTRLO 

65D9 

CNTRLU 

0015 


CNTRLZ 

65E4 

CORERR 

0093 

CPLFLG 

6540 

CPLIN 

68 3. C 


CPLTMP 

672C 

CPREF 

691C 

CP*ARG 

0001 

CP.MXL 

0080 


CP.MXR 

0014 

CP . MO 

0002 

CR 

GOOD 

CSBLOK 

668D 


CSFLAG 

6260 

CIJRCX 

6813 

CURGY 

6815 

CURLIN 

6934 


CURREN 

64A5 

C« CO 

0011 

C.Cl 

0012 

C..CX 

00 OB 


C..CY 

GOOD 

C..DP 

0013 

C. ST 

0002 

C„ X 

0003 


C. XF 

OOOF 

C. XS 

0007 

C. Y 

0005 

C . YF 

0010 


C. YS 

0009 

DDTON 

65CE 

DEVBL 

6589 

DEVCLO 

6579 


DEVCL1 

657B 

DEVCL2 

657D 

DEVCL3 

f-'rt 7F 

DEVCL4 

6581 


DEVCL5 

6583 

DEVCL6 

6585 

DEVCL7 

6587 

DEVFB 

65CB 


DEVHCB 

658F 

DEVMO 

658B 

DEVNM 

65 B 7 

DEVNT 

658D 


DEVTNA 

65BB 

DEVTNB 

65BF 

DEV.TNC 

65C3 

DEVVA 

65BD 


DEWAR 

6579 

DEWB 

65C1 

DEVVBL 

6591 

DEVVC 

65C5 


DEWD 

65C9 

DEWN 

65B9 

DEWS 

6507 

DEVXCD 

65B3 


DEVYCD 

65 B5 

DOLPLH 

6?E8 

DOLPPT 

62EA 

DUMBST 

6577 


EDBCNT 

64AD 

EDCCNT 

64 A 7 

EDLONG 

6811 

EDMODE 

68 IB 


EDNAME 

64 A1 

EDNCX 

680B 
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-INSERT AsS.ASM 
©.REMARK / 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 


«■ 

# * 

■JHHHHHHfr 

•i!- 

* 

* 

* 

•fr-JHHHHH* 


© 

© "WHEN YOU CARE ENOUGH TO PROGRAM 

© THE VERY BEST" 

© 

© ZGRASS V3.OOOOOOOO 

©BY JAY FENTON, MOLA DONATO, AMD TOM DEFANTI 


© (C) 1978 

© 

©/ 

.. INSERT As NCUEQU„ ASM 
-INSERT As ZRAM.ASM 
.LINK 

.IDENT EF 
. PREL 
3 + 

5 INTERNALS 


.INTERN 
„INTERN 
. INTERN 
.INTERN 
. INTERN 
„INTERN 
„ INTERN 
.INTERN 
„ INTERN 
. INTERN 
. INTERN 
. INTERN 
. INTERN 
.INTERN 
. INTERN 

- INTERN 

- INTERN 
3 + 


ARCCOS 

ARCSIN 

ARCTAN 

CNVFS 

COSINE 

EXP 

FORMAT 

GETNUM 

GETSKP 

I NT 

LN 

LOG 

PI 

POWER 

SINE 

SORT 


TANGENT 


EXTERNALS 

EXTERN ALSTS 
EXTERN ARG 
EXTERN CARTYP 
EXTERN CVDSTR 


5 ARC COSINE FUNCTION 
5 ARC SINE FUNCTION 
5 ARC TANGENT FUNCTION 
3 CONVERT FLOATING TO STRING 
5 COSINE FUNCTION 
5 EXPONENT FUNCTION 
“FORMAT ASCII OUTPUT 
3 PARSE FLOATING NUMBER 
SPARSE SKIP NUM 
5 INTEGER CONVERT 
SLOG NATURAL FUNCTION 
SLOG BASE 10 FUNCTION 
5 RETURN VALUE OF PI 
SPOWER FUNCTION 
3 SINE FUNCTION 
3 SQUARE ROOT FUNCTION 
3 TANGENT FUNCTION 


3 ALLOCATE STRING 
3 PARSE ARGUMENTS 
3 FIND CHARACTER TYPE 
5 CONVERT DOUBLE TO STRING 
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. EXTERN 

CVFSTR 

3 CONVERT 1-RAC I j. UN iU U 

.EXTERN 

DONCU 

3 DO NCU OPERATION 

.EXTERN 

ENDSTR 

3 CLEAN UP STRING 

.EXTERN 

ERRPGM 

3 ERROR TRAP 

.EXTERN 

FF'USH 

3 PUSH FLT NUMBER 

. EXTERN 

GETMSB 

3 GET MOST SIGNIF.BYTE 

. EXTERN 

GETOPND 

3 GET OPERAND 

.EXTERN 

INC5IY 

3 POINT TO NEXT ARG 

.EXTERN 

I POP 

3 POP I NT FROM NCU STACI- 

.EXTERN 

IPSHO 

3 PUSH 0 ONTO NCU STACK 

.EXTERN 

I PUSH 

3 PUSH INT ONTO NCU STAC 

.EXTERN 

IYNCU 

3 GET FROM IY TO NCU 

,EXTERN 

LPAD 

3 FOR LOG LINKAGE 

.EXTERN 

NCU IY 

3 GET FROM NCU TO I Y 

.EXTERN 

PLAY 

3 FOR POWER LINK 

„EXTERN 

POPOPND 

5 POP OPERAND 

.EXTERN 

PSHF10 

3 PUSH FLOATING 10 

.EXTERN 

PSHOPND 

3 PUSH OPERAND 

.EXTERN 

PUTOPND 

3 PUT OPERAND 

.EXTERN 

RETNONE 

3 RETURN 

.EXTERN 

SUBSTR 

5 FOR SORT LINK 


l» 

3 

5 CNVFS 

5 CONVERT FLOATING POINT OPERAND TO STRING OPERAND 
? 

5 NEEDSs 

3 IY-> FLOATING POINT OPERAND 

*1 

5 RETURNS? 

5 IY—> STRING OPERAND 

St 

3 . 

5 CALLS? 

5 ALSTS - ALLOCATE STRING 
5 ENDSTR - CLEAN UP AFTER STRING 
3 GETOPND? PUTOPND - FETCH, PUT OPERAND 
3 GETMSB - GET MOST SIGNIFICANT BYTE 

3 INTPT - CONVERT INTEGER PART 
3 FRACPT - CONVERT FRACTIONAL PART 
3 DONCU - DO NCU OPERATION 


OOOI-' CNVFS? 

0001" C5 PUSH B 3 SAVE BC 

0002 •" 3E01 MV I A, ($SASC 11 +13) /16 

0004"' CD 0000? 04 CALL ALSTS 3 ALLOCATE STRING 

0007' E5 PUSH H 5 SAVE PTR 

0008"' EB XCHG 3 HL->WHERE TO PUT DATA 

0009' CD 0000?OE CALL GETOPND 3 GET NUM ON NCU 

OOOC"' CD 0042' CALL MSGN 3 DO THE SIGN 

OOOF•" CD 0050"' CALL NORMLIZ 3 NORMALIZE THE NUMBER 

5H- 

3 BC = BASE 10 EXPONENT 

3 IF THE BASE 10 EXPONENT IS BETWEEN -3 AND 7 WE DO NOT 
3 USE SCIENTIFIC NOTATION 
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0012-' 

79 

. „ CA s 

MOV 

A» C 

3A=BASE 10 EXP 

0013" 

FE07 


CPI 

6+1 

3 EXPC7? NORMAL 

0015 *’* 

3810 


JRC 

» a C2 

5 EXPC7? NORMAL. 

0017-' 

FEFD 


CPI 

“***«« 

3 EXPOS? SCI NO 

0019-' 

300C 


JRNC 

.. C2 


00 IB" 

CD OOFF 

„ Cl s 

CALL 

SCI NO 

3 SCIENTIFIC NOTATION 



3 T 

3 EXIT i 

CLEAN 

UP AFTER S 

TRING AND PUSH IT 

00 IE" 


3 **“*' 

« n b. X « 

CLR 

M 

3 TRAILING NULLII 

LL 00IE" 

3600 

+ „ IFN M 


-A?, ?C 

MVI M , 0?3I 



XRA 

All 



0020" 

D1 


POP 

D 

5 HL-OTOP OF STRING 

0021" 

Cl 


POP 

B 

5 RESTORE BC 

0022 -' 

3E08 


MVI 

A 7 &STRADR 3 TYPE STRING 

0024 " 

C3 0000s1A 

M 

■JMP 

PUTOPND 

5 SAVE STRING 



3 ”1- 

3 C = BASE 10 

EXPONENT 




3 IF 

0, .NNNNNN 




3 IF 

<0, 00NNNNNN 




5 ELS 

1* 

E, NN. 

mm 


0027" 

CD 002C •" 

3 

|“***’“» M 
ii m » 

CALL 

NUMIT 

3 NORMAL NOTATION 

002A" 

18F2 


•JMPR 

»EX 

3 AND EXIT 


? -MHH- 


it 

7 ' 

S MUM I T 

5 CONVERTS A FLOATING POINT NUMBER TO AN ASCII INTEGER 
5 AND FRACTINAL PART 

II 

3 

5 NEEDSs 

3 BC = BASE 10 EXPONENT 

3 HL -> WHERE TO PUT FIRST DIGIT 
5 NCU STACK HAS NORMALIZED NUMBER 

3 

5 RETURNSs 

3 HL ->■ AFTER LAST DIGIT 

3 BC DESTROYED 

» 

3 CALLSs 

3 FLTOUT - GET 6 DIGITS 

3 FRAC, FRACPT - FRACTION PART 

3 INTPT - INTEGER PART 


002C •" 

E5 


NIJM ITs PUSH 

H 

3 SAVE OUR PTR 

002D-" 

21 

64A3 

LXI 

H,NUMBUF 

3 HL->NUMBER BUFFER 

0030" 
0031 " 

E5 

CD 

DOES " 

PUSH 

CALL 

H 

FLTOUT 

3 GET 7 DIGITS 

0034 " 

D1 


POP 

D 

5 DE--0-NUMBER BUF 

0035" 

El 

‘ 

POP 

H 

5 HL-->STRING 

00:36 " 

79 


TST 

+.IFN C 

C 

-A?, ?C MOV 

5 CHECK BASE 10 EXPII 
A 7 C 3 

0037" 

B7 


+ ORA 

A3 
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0038"* 

CC 00C7-' 


CZ 

FRAC 

i u i\nNP4n§ 

003B •- 

FC OOBC'-' 


Cm 

FRACPT 

5.00NNN 

003E ** 

C4 00B3-* 


CNZ 

INTPT 

3 NNN.NNN 

0041-' 

C9 

$ Hh4'-h4- 

7 

$ MSGN 

RET 




5 TAKES CARE OF THE SIGN OF THE MANTISSA OF A 
3 FLOATING POINT NUMBER. IF IT IS POSITIVE, NOTHING 
5 IS DONE. IF IT IS NEGATIVE, A '-'.IS PUT IN THE 
? STRING AND THE SIGN OF THE FLOATING NUMBER ON 
5 THE TOP OF THE NCU STACK IS CHANGED 

tt 

3 NEEDSs 

5 HL -> WHERE TO PUT SIGN IN STRING 
3 NCU -> FLOATING POINT NUMBER 

7 

3 RETURNS5 

3 NCU -> POSITIVE FLOATING POINT NUMBER 

3 HL. -> AFTER SIGN (IF ANY) 

» 

V 

3 CALLS s 

3 GETMSB - GET EXPONENT 
5 DONCU - DO NCU OPERATION 


0042 •" 

CD 

0000 s OD 

MSGN; 

CALL 

GETMSB 

3 GET EXPONENT 

0045 ' 

E6« 

80 


ANI 

N.MSGN 

3 CHECK MANTISSA SIGN 

0047“* 

C8 



RZ 


5 POSITI VE? LEAVE IT 

0048 ■" 

36: 

2D 


MVI 

M, 

3 SIGN IN STRING 

004A 




INX 

H 

3 AFTER THE SIGN 

004B-' 

3E 

15 


MVI 

A,M.CHSF 

3 GET ABSOLUTE VALUE 

004D-" 

C3 

0000;09 


JMP 

DONCU 



u 

7 

3 NORMLIZ, NORMLZ 

3 NORMALIZES A FLOATING POINT NUMBER WITH RESPECT TO 
5 BASE 10 

5 NEEDSs 

3 NCU-ONUMBER . NNNNNN 10#*M 
3 BC = BASE 10 EXPONENT (NORMLZ ONLY) 

tt 

3 

3 RETURNSs 

3 NCU-} BASE 10 MANTISSA .NNNNNN 
5 BC = BASE 10 EXPONENT + M 


0050 “* 


NORMLIZs 



0050 

01 0000 

LX I 

B, 0 

3 BASE 10 EXP 

0053“** 

3E17 

MVI 

A,N»PTOF 

3 IF IS 0, 

0055“* 

CD 0000;09 

CALL 

DONCU 

3 RETURN 



TST 

AC 


0058“* 

B7 

+ ORA 

AH 
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OUDV “ 

ijy 


HI 


005A' 

CD 00005OD 


CALL 

GETMSB 5 GET EXPONENT 

00.5D" 

FE40 


CPI 

N,ESGN 3 EX FOMENT NEGATIVE? 

OO'SF *“ 

3804 


■JRC 

„„N1 5 NO? LEAVE IT BE 

0061 *“ 

FE56 


CPI 

#N„MSGN&-42 ?IS TOO SMALL? 

0063 

3814 


JRC 

NORMLZ 3 DONT ROUND THEN 

0065“ 

C 6 EB 

, . Nl s 

ADI 

-21 ?SHIFT TO THE RIGHT 

0067**’ 

E67F 


AN I 

#N,MSGN 3 KILL THE SIGN 

0069“ 

57 


MOV 

Di A 

006ft *“ 

1EE0 


MV I 

E 7 OEOH 3.111 » 2**-21 

006C 

D5 


PUSH 

D 

006D *“ 

CD 0000s 11 


CALL 

IPSHO 

0070 •" 

Dl 


POP 

D 

0071*“ 

CD 0000s12 


CALL 

I PUSH 

0074 *“ 

3E10 


MV I 

AiN.FADD 5 ROUND IT UP 

0076 *“ 

CD 0000s09 

* «L, 

CALL 

DONCU 



•3 r* 

5 NQRML 

Z - ACTUAL NORMALIZATION 



? THE BASE 2 

EXPONENT IS CHECKED 



5 IF 

IT IS 

0 - WE EXIT 



3 IF 

IT IS 

> 0 - WE DIVIDE BY 10 h CHECK AGAIN 

0079 

CD 0000SOD 

7 

NORMLZ s 

CALL 

GETMSB 5 GET EXPONENT 




TST 

A 3 IS IT 0?t 

0070•" 

B7 

-I" 

ORA 

AI 

007D •" 

C 8 


RZ 

3 RETURN IF SO 

007E •" 

E640 


AN I 

N.ESGN 3 IS IT NEGATIVE? 

0080 •" 

2826 

* X 

JR Z 

.„ND 3 DIVIDE BY 10 



7 ~ 

" BASE 

2 EXPONENT IS <0, IF THE NUMBER WE HAVE IS 



? LARGER THAIS 

OR EQUAL TO .1, WE CAN EXIT, OTHERWIS! 



“ WE MUST MULTIPLY BY 10 AND CHECK AGAIN 

0082-' 

3E17 

7 

, JMMS 

MV I 

A JM.PTGF* 3 SAVE NUMBER 

00.84/ 

CD 0000s09 


CALL 

DONCU 

0087-' 

E5 


PUSH 

H 5 SUBTRACT ,1 

0088 

21 0364- 


LX I 

Hj.PT 1 3 HL—>» 1 

008B 

CD 0000 sOC 


CALL 

FPUSH 5 ON IMCU STACK 

008E •- 

El 


POP 

H 

008F-' 

3E11 


MV I 

AjN.FSUB 3 subtract to 

0091 

CD 0000s09 


CALL 

DONCU 3 COMPARE THEM 




TST 

ft "SAVE CC“S C 

0094 •- 

B7 

4- 

ORA 

AI 

0095 

F5 


PUSH 

PSW 

0096 

3E18 


MV I 

A,N„POPF 3 KILL RESULT 

0098 

CD 0000 s Q9 


CALL 

DONCU 

009B •" 

FI 


POP 

PSW 3 GET CC-'S 

0090-' 

FO 


RP 

3 RETURN IF >= ,1 

009D •" 

CD 0000s18 


CALL 

PSHF 10 3 ELSE PUSH 10. 

00 AO 

OB 


DCX 

B 3 DEC BASE 10 EXP 

00 A 1 

3E12 

) 

MV I 

A,N.FMUL 3 AND MULTIPLY 

00A3 

CD 0000s 09 


CALL 

DONCU 

00 A 6 "' 

18D A 


JMPR 

. „ NM 3 CHECK AGAIN 


5 H- 

3 BASE 2 EXPONENT > 0, WE DIVIDE BY 10 AND 
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3 CHECK AGAIN’' 


00AS'' CD 0000 s 18 „.NDs CALL PSHF10 3 PUSH 10. 

OOAB" 3E13 MVI A,N.FDIV 3 AMD DIVIDE 

00AD" CD 0000s09 CALL DOMCU 

00B0 -' 03 I NX B 5 BUMP BASE 10 EXP 

GOBI" 18C6 JMPR NORMLZ 


3 INIPT 

5 PUTS THE INTEGER PART OF A FLOATING POINT NUMBER 
3 INTO THE GIVEN STRING 

3 NEEDS s 

3 DE -> FIRST DIGIT OF NUMBER IN BUFFER 
3 HL -> NEXT BYTE IN STRING TO STORE INTO 
3 A = BASE 10 EXPONENT (IF <=0, RETURN) 

is 

f 

3 RETURNSs 

3 HL -> AFTER INTEGER PART (IF ANY) 

3 DE -> AFTER LAST INTEGER DIGIT 

5 B DESTROYED 


00B3 *** 

47 

INTPTs 

MOV 

B, A 

3 B=BASE 10 EXP 

00B4 •" 

1A 

. . 11 s 

LDAX 

D 

5 A=NEXT DIGIT 

00B5 *** 

13 


I NX 

D 


00B6 •" 

77 


MOV 

M, A 

5 COPY DIGIT 

00B7*“ 

23 


I NX 

H 


00B8 •" 

1 OF A 


D.JNZ 

..11 

3 UNTIL ALL DONE 

OOBA-' 

180B 

" “! — 

■JMPR 

FRAC 

5 DO FSACTION 



3 FRAC 

FO¬ 





3 COP I 

ES THE 

REST OF THE FRACU 

IONAL DIGITS FROM 


5 BUFFER INTO STRING. DECIMAL POINT ADDED, TRAILING 
5 ZEROS SUPPRESSED 


3 NEEDSs 

3 DE -> FIRST FRACTIONAL DIGIT 

5 HL ~> WHERE TO PUT DIGITS IN STRING 

U 

* 

3 RETURNSs 

3 DE --> AFTER LAST DIGIT 
3 HL -> NEXT BYTE IN STRING 


OOBC"' 

36.2E 

FRACPTs MVI 

M, 

5 PUT IN 

DEC PT 

OOBE 

23 

I NX 

H 



008F 

3630 ' 

..FIs MVI 

M, "0" 4 

3 LEADING 

ZEROS 

00C1 

: 23 

I NX 

H 



00C2 

3C 

I NR 

A 

3 BUMP EX 

PONENT 

00C3 •" 

2 OF A 

JRNZ 

. .FI 

3 UNTIL 0 


00C5 

1803 

JMPR 

FRACX 

5 REST OF 

DIGITS 


3 + 







$ FRAG “* 

a* 

fcJMlNY 

f~’ U -L I'M i W111“ !>l 1... H U X 5 M LJ X. i”. r\ *“• LlCJ i JU *1 X i- *..■ 

00C7 •' 

362E FRAC» 

MV I 

M, -■ 

;DECIMAL POINT 

00C9 ’■ 

•“i 

INX 

H 


OOCA ■" 

1A l~ RAL* X» 

LDAX 

D 

? GET A-DIGIT 

OOCB' 

13 

INX 

D 


00 cc •" 

77 

MOV 

M, A 

,COPY IT 

OOCD- 

O 

INX 

H 




TST 

A 

5 WAS IT NULL?): 

OOCE 

B7 + 

ORA 

A3 


OOCF-" 

20F9 

JRNZ 

FRACX 

5 NO? CONTINUE 

OOD1 " 

2B 

DCX 

1-1 

?AT NULL 

00D2 

3E30 

MVI 

A 7 ‘ U ’ 


00D4" 

^5 m » F*• 

DCX 

H 

5 DEC PTR 

00D5 **’ 

BE 

CMP 

M 

5 TRAILING 0? 

OOD6 " 

28 FC 

■JR Z 

» «F2 

5 KILL IT 

GODS' 

7E 

MOV 

A 7 M 

5 A=LAST DIGIT 

00D9-' 

FE2E 

CPI 

It 

3 WAS THE DP? 

OODB '■ 

2008 

JRNZ 

* « F3 

5 NO? EXIT 

OODD ■’* 

2B 

DCX 

H 

5 HL-OBEFORE DP 



TST 

M 

5 IS NULL?): 

LL CODE-' 

7E h-.IFN 11 


-A?, ?C MOV 

A, M 3 

OODF x 

B7 + 

ORA 

A3 


OOEO ■" 

•2003 

JRNZ 

„ . ;F3 

"NO? EXIT 

00E2-' 


INX 

H 

3 POINT AT DP 

GOES"' 

3630 

MVI 

M v 0 •" 

3 MAKE IT 0 

00E5 *” 

23 B „F3« 

INX 

H 

SHL—>LAST 0 OR NULL 



CLR 

A 

3 SET Z BIT! 

00E6 

AF IFN A 


-A, i: MVI 

A , 0 3 i: 


XRA 

a:id 



00E7" 

09 

RET 









*.« 

3 FLTOIJT 




5 CONVERT NORMALIZED FLOATING 

POINT NUMBER TO A 


3 DIGIT 

STRING 

(MO DECIMAL POINT, ASSUMED TO BE 


3 AT THE 

II 

FAR LE 

FT) 



7 

3 NEEDSs 





5 HL - 

> BUFFE 

R TO STORE!AT 

LEAST 6 DIGITS & NULL 


MCIJ- 

w 

•> BASE 

10 NORMALIZED 

FLOATING NUMBER 


V 1 

5 RETURN 

Ss ' ■ ; 




5 HL - 

> AFTER 

LAST DIGIT 



3 DESTROYS B, 

5 

NCU 


00E8 •" 

it’ .. 

7 

0605 FLTOUTn 

MVI 

B, 5 

3 FIELD WIDTH 

OOEft *'' 

E5 

PUSH 

H 

3 PUSH 1 

OOEB" 

21 0368' 

LX I 

H 7 TENS 

3 ON NCU STACK 

OOEE 

CD 0000sOC 

CALL 

FPUSH 


oof:!. ■- 

El 

POP 

H 


00F2 

3E12 

MVI 

A,N.FMUL 

3 GET 7 DIGITS 

00F4" 

CD 0000 s 09 

CALL 

DONCU 


00F7" 

3E1E 

MVI 

A,N.FIXD 

3 CONVERT TO INT 
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00F9-" CD 0000 s 09 CALL. DONCU 

OOFCC3 0000S OS JMP CVFSTR 3 PUT IN STRING 

2* -j.. 

N 

1 

; sc :r. no 

3 PUTS A NORMALIZED FLOATING NUMBER INTO SCIENTIFIC 
5 NOUATION IN A STRING »NNNNNNNENNN 

3 NEEDSs 

3 HI- -> AFTER SIGN IN STRING 
3 NCU—> FLOATING MANTISSA OF NUMBER 
5 BC = BASE 10 EXPONENT 

N 

1 

3 RETURNSs 

3 HL ~> AFTER EXPONENT DIGITS 




3 BC, DE, NCU 

tt 

4 J 

DESTROYED 


OOFF 

C5 

SC INOS PUSH 

B 

3 SAVE BASE 10 EXP 

0100" 

362E 

MV I 

M, " 

3 DECIMAL POINT 

0102“' 

OQ 

I NX* 

H 


0103"' 

CD 00E8" 

CALL 

FLTOUT 

5 GET 7 DIGITS 

0106"' 

3645 

MV I 

M, "E" 

3 EXPONENT 

0108 

23 

I NX 

H 


0109 

D1 

POP 

D 

3 DE = BASE 10 EXP 

010A" 

CD 0000s12 

CALL 

I PUSH 

3 DOUBLE IT 



TST 

D 

3 CHECK HI BYTEC 

LL 010D" 

7A 

+.IFN D 

-A?, ?C MOV 

a, d :i 

010E"' 

B7 

+ ORA 

A3 


01 OF" 

11 0000 

LX I 

D, 0 

3 ASSUME POS 

0112 

2803 

•JRZ 

. .SI 

3 OK 

0114" 

11 FFFF 

LX I 

D,-l 

3 NEGATIVE 

0117" 

CD 0000s12 

..Sis CALL 

I PUSH 

3 PUSH HI BYTE 

Oil A" 

C3 000Os 07 

JMP 

CVDSTR 

3 INTO STRING 


5 ++++ 


5 GETNUM 

3 PARSES A FLOATING POINT NUMBER FROM A STRING 

31 

1 

3 NEEDSs 

3 HL -> FIRST DIGIT OF STRING 

•J 

5 -RETURNS: 

3 FAILS 
5 C BIT SET 

S FAILS IF NO DIGITS AT ALL 

5 SUCCEEDS 

3 HL -> AFTER LAST DIGIT, EXPONENT, ETC. 

3 TOP OF NCU STACK HAS FLOATING NUMBER 

3 A = $FVAL C TYPE FLOAT) 

3 DESTROYS DE, BC 

» 

V 

5 CALLS s 

3 CARTYP - CHECK CHARACTER TYPE 
5 DONCU - DO!NCU OPERATION 
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? P 

SHF 10- I-* 

UbH hLUH f J.NU J. u 




“ G 

ETINT, G 

ETI - GET IN1JEGER 

FROM STRING 



$ G 

«i 

*} 

ETEXP - 

PARSE EXPONEOT 


01 ID” 

7E 

GETNUMs MOV 

AvM 

;CHECK FOR DECIMAL 

01 IE-' 

FE2E 


CPI 

U 

?POINT FIRST 

0120- 

2805 


•JR 2 

««G i 

5 OK TO START 

0122- 

CD 0000 s 06 


CALL 

CARTYP 

5 CHECK 1ST CHAR 

0125- 

3065 

3 + 

JRNC 

FAIL 

5 FAIL IF' NO DIGIT 



5 PAR 

SE INTEG 

ER PART. IF A DEC! 

MAL POINT IS FOUND, 



? AN 

EXPONENT 

IS COMPUTED IN B. 

THIS EXPONENT IS 



5 DECREMENTED 

iEVERY TIME A DIGIT AFTER THE DECIMAL 



? POINT IS FOUND 


0127- 

CD 015A- 

7 

i. „ G i » 

CALL 

GETINT 

? PARSE INTEGER PART 

012A” 

0600 


MVI 

B,0 

5EXPONENT IS 0 

012C- 

7E 


MOV 

A,M 

5 CHECK FOR DECIMAL 

012D- 

crcrocr 


CPI 

* >■ * 

5 POINT 

012F- 

2004 


JRNZ 

* «G2 

5ISNT ONE, TOO BAD 

0131” 

23 


INX 

H 

5 HL->AFTER OP 

0132- 

CD 0177- 


CALL 

GET I 

5 PARSE FRACTION 



•j **r 

; IF 

AN EXPON 

ENT IS FOUND, IT I 

S PARSED AND 



5 ADDED TO THE CURRENT EXPONENT 

tt ' 

IN B 

0135- 

CD 018E- 

7 

» • G2s 

CALL 

GETEXP 

;PARSE EXPONENT 

0138- 

3E1C 


MVI 

A,N.FLTD 

5 CONVERT TO FLT 

013 A - 

CD 0000s09 


CALL 

DONCU 



" + 

5 HERE B » BASE 10 EXPONENT AND THE STACK HAS 
5 THE FLOATING NUMBER PARSED WITH THE DECIMAL 
? POINT TO THE FAR RIGHT. WE MULTIPLY/DIVIDE 
? THE NUMBER OF TIMES INDICATED BY THE EXPONENT 
S TO GET THE TRUE VALUE 


013D- 


ii M G3« 

TST 

B 

? EXPONENT 0?i: 

013D- 

78 

+.IFN B 


-A?, ?c: MOV 

A, B 1 

013E ** 

B7 


ORA 

A1 


013F- 

2816 


JRZ 

. .EX 

5 YES? CAN EXIT 

0141- 

FA 014F” 


JM 

„ . G5 

5 NEGATIVE? DIVIDE 

0144“ 

CD 0000s18 


CALL 

PSHF10 

3 MULTIPLY BY 10.0 

0147- 

3E .1.2 


MVI 

A,N.FMUL 


0149- 

05 


DCR 

B 

3 DEC EXPONENT 

014A * 

CD 0000 s 09 

„ .04 s 

CALL 

DONCU 

5 DO IT 

014D- 

1 BEE 


JMF’R 

. . G3 

“GO AGAIN 

014F- 

CD 0000s18 

« . G5s 

CALL 

PSHF10 

?DIVIDE BY 10.0 

0152- 

3E13 


MVI 

A,N.FDIV 


0154- 

04 


I NR 

B 

3 BUMP EXPONENT 

0155- 

18F3 


JMF'R 

. . G4 


0157- 

3E06 

. « E X s 

MVI 

A,$FVAL 

5 RETURN TYPE FLT 

0159- 

C9 

« ++-M- 

RET 
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3 GET I NT,' GET I 

? INTERNAL ROUTINES TO PARSE INTEGER AND MAINTAIN 
3 A 32 BIT NUMBER ON NCU STACK- THE EXPONENT IN 
3 B IS DECREMENTED EVERY TIME A DIGIT IS PARSED 

M 

V " ■ ' 

3 NEEDS s 
3 HL ~> DIGIT 

3 NCU STACK HAS CURRENT NUMBER FOR GETI, GETINT 
5 WILL PUSH A 32 BIT 0 

7 

3 RETURNSs 
5 FAILS 




It 

7 

C 81 

T SET 




« 

FAIL 

S IF NO DIGIT FOUND 



$ succ 

:EED s 





at 

7 

HL - 

> NON-DIGIT 




«t 

7 

NCU 

STACK HAS 32 BIT 

INTEGER PARSED 



7 

3 CALLS 






3 CARTYP - 

CHECHK CHARACTER 

TYPE 



3 DONC 

:U - 

DO NCU OPERATION 




5 IPSHO - 

PUSH INTEGER 0 




5 I PUS 

n 

7 

;h - 

PUSH INTEGER 


015 A •" 

CD 0000311 

GETINTs 

CALL 

IPSHO 

5 PUSH 32 BIT ZERO 

015D *** 

CD 0000s11 


CALL 

IPSHO 


0160 

CD 0000 s 06 


CALL 

CARTYP 

5 CHECK DIGIT 

0163 •" 

3027 


JRNC 

FAIL 

5 FAIL RETURN 

0165 **’ 

7E 

GI s 

MOV 

A,M 

3 A=DIGIT 

0166 

23 


INX 

H 

3 HL->AFTER DIGIT 

0167" 

D630 


SUI 


3 GET IN BINARY 




CLR 

D 

3 PUT IT IN DEE 

0169 •" 

1600 

+ ,. IFN D 


-A?, ?II MVI 

D ,031 



XRA 

a:i:i 



016B •" 

5F 


MOV 

E, A 


016C 

CD 0000s12 


CALL 

I PUSH 

3 PUSH ON NCU STACK 

016F-" 

CD 0000 s 3. 1 


CALL 

IPSHO 

3 PAD HI ORDER 

0172"' 

3E2C 


MV I 

A, N.DADD 

3 ADD TO RESULT 

0174'' 

CD 0000s09 


CALL 

DONCU 


0177" 

CD 0000s06 

GET Is 

L-ALL 

CARTYP 

3 CHECK NEXT DIGIT 

017A'" 

DO 


RNC 


3 RETURN IF NOT DIG 

017B"' 

11 000A 


LX I 

El ■? 10 

3 PUSH INTEGER 10 

017E'" 

CD' 0000 s 12 


CALL 

I PUSH 

3 ON NCU STACK 

0181 

CD 0000s11 


CALL 

IPSHO 


0184'" 

3E2E 


MV I 

A 7 N-DMUL 

3 MULTIPLY OUR NUM 

0186'" 

CD 0000s09 


CALL 

DONCU 

3 BY 10 

0189"' 

05 


DCR 

B 

5 DEC EXPONENT 

018 A 

1809 


JMPR 

GI 

3 CONTINUE 

018C " 

37 

FAILS 

STC 


5 SET CARRY 

018D" 

C9 


RET 




3 ++++ 


3 GETEXP 

3 PARSE EXPONENT IN STRING AND RETURN IN B 
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3 NEEDS s 

5 HL -> POSSIBLE EXPONENT IN STRING 
3 B = OLD EXPONENT OR 0 

7 

3 RETURNSs 

3 HL -> AFTER EXPONENT (IF ANY) 

3 B = OLD EXPONENT PLUS NEW EXPONENT 
« 

3 L-ALLS “ 

3 GETINT - PARSE INTEGER 
5 DONCU - DO NCU OPERATION 
5 IPOP - POP INTEGER 
* 


018E •" 

FE45 

GETEXP 

S CPI 

"E" 

?IS EXPONENT? 

0190-' 

CO 


RNZ 


5 NO? SKIP IT 

0191 " 

•‘“•O 


INX 

H 


0192" 

C5 

GETSKP 

-s; RUSH 

B 

5 SAVE OLD EXP 

0193" 

7E 


MOV 

A, M 

5 A = NEXT THING AFTER 

0194-' 

FE2D 


CPI 

•*'-*** 

;CHECK SIGN 

0196" 

F5 


PUSH 

PSW 

5 SAVE CCS 

0197"' 

2001 


JRNZ 

M «G1 

5 NO SIGN? 

0 i 99 



INX 

H 

;hl->after sign 

019 A"' 

CD 015A"' 

. . G1 s 

CALL 

GETINT 

GET EXPONENT 




CERROR 

ER.NUM 

5 MUST BE NUMBERC 

019D 

3004 

4* 

JRNC . 

. 0001 


U19F" 

CD 0000SOB 


CALL E 

RRPGM 


01A2 "' 

2B 

4- 

. BYTE 

ER.NUM 


01 A3"' 


„0001 

S3 



01 A3"' 

CD 0000s10 


CALL 

IPOP 

3 POP HI PART 

01A6" 

CD 0000s10 


CALL 

IPOP 

5 DE=EXPONENT 

01A9'" 

FI 


POP 

PSW 

3 WAS THERE A SIGN? 

01AA"' 

7B 


MOV 

A,E 

3 A-EXPONENT PARSED 

01AB 

2002 


JRNZ 

. . G j~ 

3 NO SIGN 

01 AD" 

ED44 


NEG 


5 NEGATE IT 

01AF"' 

Cl 

„ »G2 5 

POP 

B 

3 B=OLD EXPONENT 

01. BO" 

80 


ADD 

B 

3 ADD TO NEW ONE 

01B1 "' 

47 


MOV 

B, A 

5 SAVE IN B 

01B2 

C9 


RET 


3 AND RETURN 


3 +-M-+ 


POWER 


i 

If 

3 


01B3"' 

18 

+POWER 

01B4" 

03 


01B5"' 

00 

4' 

01B6"' 

0000 s 16 

4- 

01B8-" 

01C3-" 

4- 

01 BA"' 

01C6"' 

4* 

01BC"' 

504F57455 

200+ 

01C2"' 

00 

+ 3 


M„ CHDCPOWER, . . POWX, 0, PLAY, . PARG, . „ P0W3 C 
.BYTE &CMDADR 
.BYTE (..POWX-POWER)/16+1 
.BYTE 0 
.WORD PLAY 
. WORD ... POW 
WORD . , PARG 
.ASCIZ /POWER/ 


. BYTE 
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01C3**’ 

CD 0000s05 

» a HUW « 

CALL 

mHU 


01C6" 

060600 

. PARGs 

. BYTE 

$FV AL,$FVAL, 

$TAF 

o :i. C9 ■" 

CD 0000s13 


CALL 

IYNCU 

7 GET 1ST .ARG 

OICC-' 

CD 0000 s OF 


CALL 

INCSIY 

5 POINT AT 2ND ONE 

o :i. CF ■" 

CD OOOOs13 


CALL 

IYNCU 

? AND 2ND ARG 

01D2" 

3E0B 


MVI 

A.N.PWR 

5 POWER FUNCTION 

01D4-" 

01D6" 

181B 

. . POWX s 

3 •+•+++ 

a 

7 

5 SIM 

•JMPR 

FRET 

SAND RETURN 


7 





M. CMDC 

SINE,SINX,0,SORT, 

FNARG,.„SIN11C 

01D6’" 

18 

+SIME s 

. BYTE 

$CMDADR 


01D7 •" 

03 

4 

. BYTE 

(SINX-SINE)/16+1 


01D8’" 

00 

4 

. BYTE 

0 


01D9 •- 

027E" 

4 

. WORD 

SORT 


01DB •' 

DIES”' 

4 

.WORD 

.,SIN1 


01DD-" 

01 EB •" 

4 

. WORD 

FNARG 


01 OF' 

53494E4500 

4 

„ASCIZ 

/SINE/ 




43 




01E4"' 

CUES"' 

00 

. .SIMIt 

. BYTE 

0 


01E5 •" 

3E02 


MVI 

A, N« SIN 

5 SINE 

01E7 •" 

F5 

FFUN s 

PUSH 

PSW 

“SAVE OPERATION 

DIES”" 

CD OOOOs05 


CALL 

ARG 

3GET ARGUMENT 

01EB 

0600 

FNARG: 

„ BYTE 

$FVAL,$TAF 


01 ED •" 

CD OOOOs13 


CALL 

IYNCU 

5ONTO NCU FROM IY 

01F 0 •" 

FI 


POP 

PSW 

3 A = FUNCTION 

01F1 •" 

CD OOOOs09 

FRETS 

CALL 

DONCU 

3 RESULT ON NCU 

01F4”' 

3E06 


MVI 

A,$FVAL 

5 FLOATING VALUE 

01F6”' 

01F9’" 

C3 OOOOsIB 

ST NX s 

■JMP 

RETNONE 

3 RETURN 


- +H-++ 


7 COS 

i 

« ... 

J 

M.CMDCCOSINE,..COSX,0,AFIXCC3.FNARG,..C0S11C 


01F9’" 

CO 

+CQSINE: 

. BYTE 

*CMDADR 

0 I F A "' 

02 

4 

. BYTE 

(..COSX —COSINE)/16+1 

01FB" 

00 

4* 

„ BYTE 

0 

01FC " 

630C 

4- 

„ WORD 

AFIXCC3 C C"C " — 1 01Q)* 16+FST INT] 

01FE”' 

020A •" 

4* 

.WORD 

..C0S1 

0200 

01 EB ■" 

4 

. WORD 

FNARG 

0202" 

434F5 

349 4E454 

. ASC II 

/COSINE/ 



4*J 



0209 

00 


. BYTE 

0 

020A ’" 

3E03 

a«eosi s 

MVI 

A,N.COS 3COSINE 

020C 
020E •" 

18D9 

.«COSX : 

** 

u 

V 

3 TAN 

■JMPR 

FFUN 
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M. CMD i: TANGENT, „ „ TANX, 0, AFIXIIT 3 , FNARG? „ . TAN 3 C 


020E ** 

18 

+TANGENTS 


.BYTE $CMDADR 

020F -* 

02 

4 


„ BYTE 

C..TANX-TANGENT)/16+1 

0210 “* 

00 

4* 


.BYTE 

0 

02U X 

641C 

4* 


„ WORD 

AFIXET3E("T"-l01Q)*16+FSTINT3 

0213*" 

0220 •" 

4* 


„ WORD 

. . TAN 

0215-' 

OTEB"' 

4* 


. WORD 

FNARG 

0217 -* 

54414E4745 

4F4- 


.ASCIZ 

/TANGENT/ 

02 IF" 
0220 *“ 

00 

3E04 

+ ] 

it 

.TANS 

„ BYTE 
MV I 

0 

A? N.TAN 3 TANGENT 

0222 -* 
0224 -* 

18C3 


„ TANX s 

JMPR 

FFUN 


« 4*4***i—h 


3 I NT 
*1 

t* ,„ >r „ ttr rtntt , lt „ 

M. CMD Cl NT, . TNTX?0, AFIXEI3, . - INTA? „ . INT3E 


0224''' 

18 

+ INTS 

. BYTE 

CCMDADR 

0225"' 

02 


. BYTE 

C . . INTX-INT>716+1 

0226"' 

00 

4 

„ BYTE 

0 

0227-* 

636C 

4- 

. WORD 

AF IX r. I 3 C ( " I “ - 101Q> * 16+FST I NT 3 

0229-* 

0232-' 

4 

. WORD 

„ . INT 

022B"' 

0235-* 

4 

. WORD 

..INTA 

022D"' 

494E5400 

~h 

.ASCI 

Z /INT/ 



+ 3 



0231'" 

00 


. BYTE 

0 

("j *"**-**“:* *•* 

CD 0000»05 

. I NTs 

CALL 

ARG 

f .. 

yx. •«..* 

0400 

. „ INTAs 

. BYTE 

$IVAL i $TAF 

0237-* 

CD 0000SOE 


CALL 

GETOPND 3 GET OPERAND 

023A ’ 
023D"' 

C3 0000 s :LB 

.„INTXs 

JMP 

RETNOME 3 RETURN INTEGER 




ASIN 

M. CMD t ARCS IN? - - ACS X ? 0 ? AF IXIIA 3 ? FNARG, „ „ AS IN3 E 


023D"' 

18 

+ARCSINs 

. BYTE 

$CMDADR 

023E"' 

02 

4* 

. BYTE 

(..ACSX-ARCSIN>/16+1 

023F"' 

00 

4* 

„ BYTE 

0 

0240 -* 

62EC 

4 

„ WORD 

AF IX i: A 3 E ( " A " ~101Q > * 16+FST I NT 3 

0242 ■" 

024E"' 

4* 

„ WORD 

„.ASIN 

0244 

01EB"' 

4 

.WORD 

FNARG 

0246"' 

415243534 

94E4- 

.ASCIZ 

/ARCSIN/ 

024D "' 

00 

* J 

. BYTE 

0 

024E" 
0250"' 
0252"' 

3E05 

1895 

. - ASINS 

« n AbbX # 

« —i~4 

» 

MV I 
■JMPR 

A,N.ASIN 5 ARC SINE 

FFUN 


n 

3? 
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ACOS 3 II 


M. CMDCARCCOS».. .. ACCX,0, ARCSIN, FNARG, . » 


0252 ’ 

18 

+ARCCOSs 

. BYTE 

♦CMDADR 

0253 *" 

02 

4* 

. BYTE 

(„.ACCX-ARCCOS)/16+1 

0254" 

00 

4- 

. BYTE 

0 

0255-' 

023D-' 

+ 

„ WORD 

ARCSIN 

0257" 

0263-' 

4* 

„ WORD 

.„ACOS 

0259 y 

o :i. eb •" 

4- 

„ WORD 

FNARG 

025B" 

415243434F5 

+ 3 

.ASCI 2 

: /ARCCOS/ 

0262" 

00 


.BYTE 

0 

0263" 

3E06 

. . ADDS 5 

MV I 

A,N.ACOS ;ARC 

0265" 

0268" 

C3 01E7" 

. .ACCXs 

JMP 

FFUM 


« 4.4.4.4, 


IS 

3 

5 AT AIM 


0268-' 

18 

4-ARCTANs 

M.CMDCARCTAN,..ATNX,0,ARCCOS,FNARG,„ 
.BYTE $CMDADR 

0269" 

02 

4* 

„BYTE <..ATNX-ARCTAN)/16+1 

026A" 

00 

4* 

.BYTE 0 

026B"' 

0252" 

- 1 - 

.WORD ARCCOS 

026D'" 

0279-" 

+ 

.WORD ..ATAN 

026F-" 

01 EB"’ 

+ 

.WORD FNARG 

0271 •" 

4152435 

4414E+ 

„ASCIZ /ARCTAN/ 

0278"' 

0279"' 

00 

3E07 

+ 3 

..ATANs 

gyyjr 

MVI A,N.ATAN ?ARC TANGENT 

027B 

C3 01E7 


JMP FFUN 

027E •' 


..ATNXs 



. ++++ 


SORT 


M. CMDII SORT, „ . SQRX, 0, SUBSTR, FIMARG, „ . SORT3t 


027E" 

18 

4* SORT “ 

.BYTE $CMDADR 

027F-" 

02 

4* 

.BYTE (..SQRX-SQRT)/16+1 

0280"' 

00 

4- 

.BYTE 0 

0281"' 

0000 s1C 

4“ 

.WORD SUBSTR 

0 fc* 3 * 

028D -' 

4 . 

„WORD ..SORT 

0285" 

01EB-' 

•4 

.WORD FNARG 

0287" 

5351525400 

4 . 

+3 

.ASCIZ /SORT/ 

028C" 

00 


.BYTE 0 

028D*" 

3E01 

. „ SORT'S 

MVI A,N„SORT 5 SQUARE 

028F" 

C3 01E7 


JMP FFUN 

0292 *" 


..SQRXs 

« 4-44-f 



7 •• 

? LOG 
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M. CMD Z LOG, „ „ LOGX, 0, LPAD, FNARG, „ LOG II C 

0292*' 

18 

+LOG 5 

. BYTE $CMDADR 

0293 *'* 

02 

4* 

„ BYTE (..LOGX-LOG)/16+1 

0294" 

00 

4* 

„BYTE 0 

0295“ 

0000s14 

-I- 

.,WORD LPAD 

0297“ 

02 AO" 

4- 

.WORD „„LOG 

0299 

01EB *“ 

4* 

. WORD FNARG 

029B 

4C4F4700 

4- 

.ASCIZ /LOG/ 



+ 3 


029F*“ 

00 


.. BYTE 0 

02 AO" 

3E03 

„„LOGs 

MVI A, N.LOG 5 BASE 10 LOG 

02 A2" 

03 01E7-" 


JMP ffijn 

02A5-" 


..LOGXs 




# 4*4"*l—f~ 




7 

3 LN 

n 

7 




u 

V 

M. CMDELN, . , LNX, 0, LOG, FNARG, . LN3 11 

02 AS" 

i y 

+LN5 

..BYTE $CMDADR 

02A6 

02 

•4 

.. BYTE ( „ .. LNX-LN) /16+1 

02A7-" 

00 

4- 

.BYTE 0 

02A8-" 

0292"' 

4* 

„WORD LOG 

02 A A •" 

02B2"' 

4- 

.WORD ..LN 

02AC •" 

01 EB"’ 

4v 

.WORD FNARG 

02 AE ■" 

4C4E00 

4- 

.ASCIZ /LN/ 



+ 3 


02B1 " 

00 


„BYTE 0 

02B2 •" 

3E09 

. «L.Ns 

MVI A,N.LN 3 BASE E LOG 

02B4" 

03 01E7" 


JMP FFIJN 

02B7 


.»LNX 5 




? ++++ 




3 

3 EXP 

u 

7 




3 ~~ 

M. CMD E EXP, . . EXPX ,0, AFIX CE3, FNARG, .. . EXP 3 11 

02B7 " 

18 

+EXPs 

.BYTE $CMDADR 

02B8 •" 

02 


BYTE (. . EXPX-EXP) /16+1 

02B9-" 

00 

4* 

.BYTE 0 

02BA •" 

6320 

4* 

. WORD AFIX I! E 3 JI < " E " -101Q) *16+FSTI NT 3 

02BC 

0205"' 

4* 

..WORD ..EXP 

02BE "' 

oieb-" 

4 

.WORD FNARG 

02C0" 

45585000 

4* 

.ASCIZ /EXP/ 



+ 3 


02C4 •" 

00 


.BYTE 0 

02C5 •" 

3E0A 

««EXP3 

MVI A,N.EXP 3 RAISE TO E POWER 

0207 * 

03 01E7 


■JMP FFUN 

02CA •" 


«-EXPX8 




» 4* 4 * 4* 4- 

tt 

7 

3 PI 

7 . 
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M.CMDCPI>..PIXrO, AFIXCP3»0,..PIjt 


02CA" 

18 

+PI: 

.BYTE $CMDADR 

02CB •" 

02 

. *+• 

.BYTE (. .PIX-PD/16+1 

02CC" 

00 

-h 

.BYTE 0 

02CD 

63DC 

•4* 

. WORD AF IX C P ICC P " -10 IQ) # 16+FSTI NT 1 

02CF-" 

02 Ei 7 


.WORD ..PI 

02D1 •- 

0000 

+ 

.WORD 0 

02D3 " 

504900 

H- 

.ASCIZ /PI/ 



+ 3 


02DS-" 

00 


.BYTE 0 

02D7 -■ 

3E1A 

.-.■PI-5 

MVI A,N.PUPI 5 RETURN PI 

02 Ei 9'" 
02DC •" 

C3 01FI ‘ 

» M P I X « 

JMP FRET 



u 



S FORMAT 

5 FORMATS A FLOATING POINT NUMBER INTO AN INTEGER AND FR 
ACTIONAL 

5 PART (ASCII STRING) WITH N DIGITS AFTER THE DECIMAL PO 

I NT 
* 

5 NEEDS.s 

? FLOATING NUMBER TO FORMAT 

5 INTEGER GIVING NUMBER OF DIGITS AFTER DECIMAL POINT 
? (MAY BE BETWEEN 0 AND 6) 

r 

? RETURNSs 

? STRING WITH FORMATTED NUMBER 

7 

? nfti i !-*is 

5 ARG -- FETCH ARGUMENTS 
5 ALSTS - ALLOCATE STRING 

5 GETOPND - FETCH OPERAND 

3 INC5IY - BUMP IY TO NEXT ARG 
? MSGIM - GET SIGN 
? NORMLIZ ~ NORMALIZ NUMBER 
5 NUM.IT - CONVERT TO ASCII 


M.CMDEFORMAT,..FMT X,0,AFIX CF3,„.FMARG,..FMT 1 C 


02DC ■" 

18 

+F0RMAT5 

. BYTE 

$CMDADR 

02DD •" 

09 


. B YTE 

(..FMTX-FORMAT)/16+1 

02DE 

00 

-h 

. BYTE 

0 

02DF 

633C 

4* 

. WORD 

AFIX C F 3 C("F"-101Q)*16+FSTINT 1 

02E1 •" 

02EC ■“ 

+ 

. WORD 

..FMT 

02E3 •" 

02EF 

4* 

.WORD 

..FMARG 

02E5 •" 

464F524D415 

4-h 

.ASCII 

: /FORMAT/ 



+3 



02EC" 

CD 0000s05 

« > PMTs 

CALL 

ARG 

02EF 

060400 

««FMARGs 

.BYTE 

$FVAL i $IVAL i 0 

02F2-' 

E5 


PUSH 

H 

02F3-" 

3E01 


MV! 

A,($SASCII+19)/16 

02F5 •" 

CEf 0000 s 04 


CALL 

ALSTS 5 ALLOCATE STRING 

02F8 •" 

E5 


PUSH 

H S SAVE THE PTR 
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02F'9 

EB 

XCHG 


1 ! U 1 hi Cl l ur 

02F A 

CD 0000sOE 

CALL 

GETOPND 

5 GET FLOATING VALUE 

02FD 

CD 0000 s OF 

CALL 

INC5IY 

5 POINT TO NEXT ARG 



1 * 

5 GET * OF DIGITS AFTER DP IN 

DE 



5 IT MUST BE PO 

SITIVE AND LES 

S THAN 6 

0300 

CD 0000 sOE 

V 

CALL 

GETOPND 

?GET# DIGITS AFTER DP 

0303 *“ 

7B 

MOV 

A? E 

?A = # DIGITS AFTER 



TST 

A 

? MUST BE > OC 

0304- 

B7 

+ ORA 

a:i 


0305-' 

FA 030C" 

JM 

. „ ERR 

7 ERROR 

0308" 

FE07 

CPI 

6+1 

? MUST BE < 6 

030A •" 

3804 

■JRC 

. „ NN 

5 OR ERROR 

0300- 


..ERRs ERROR 

ER.DP C 


030C 

CD 0000SOB 

+ CALL ERRPGM 


030F •** 

37 

+ .BYTE ER.DP 




+ 1 





3* 





5 PRINT INITIAL 

SIGN AND NORMALIZE NUMBER 

0310 y 

CD 0042" 

? 

.„NN s CALL 

MSGN 

? GET THE SIGN 

0313-' 

D5 

PUSH 

D 

5 SAVE DIGIT COUNT 

0314-' 

CD 0050" 

CALL 

NORMLIZ 

5 NORMALIZE NUMBER 



« -h 





5 IF THE NUMBER 

IS GREATER THAN 10**10, IT IS 



5 TOO BIG TO DI 

SPLAY„ IF IT I 

S GREATER THAN 10**6, 



5 TRAILING ZERO 

tt 

3 ARE ADDED 


0317- 

79 

•J 

MOV 

A? C 

5 A=EXPONENT 

0318" 

FE07 

CPI 

6+1 

SO < EXP 6? 

031A" 

381C 

JRC 

. . N1 

« YES? 

031C" 

FEOB 

CPI 

10+1 

56 < EXP < 10? 

03 IE" 

3808 

JRC 

. „N 

5 YES ? 

0320" 

FEFO 

CPI 

-16 

5-16 < EXP < .10 

0322" 

3014 

i JRNC 

„ „ N1 

5 YES? 



ERROR 

ER.FMT 

5 ELSE ERROR! 

0324 " 

CD 0000 s OB 

+ CALL ERRPGM 


0327" 


+ «BYTE E 

+ 'J 

«.Ns SBI 

R. FMT 


0328" 

DEO 5 

5 

5 SUBTRACT 5 

032A" 

4F 

MOV 

C, ft 

5 NEW EXPONENT 

032B " 

CD 00E8" 

CALL 

FLTOUT 


032E" 

3630 

»„NW s MVI 

M, "0" 

5 TRAILING OS 

0330 " 


INK 

H 


0331" 

OD 

DCR 

c 

5 UNTIL COUNTUP 

0332 " 

20FA 

JRNZ 

„ . NW 


0334 " 

362E 

MVI 

Mi ". " 

5 PUT DP IN 

0336 " 

180C 

JMPR 

a 

. . N5 




*t * 

; CONVERT FLOATING NUMBER TO 

ASCII AND GET THE 



; NUMBER OF DIG 
» 

ITS REQUESTED 

AFTER THE DECIMAL POINT 

0338" 

E5 

V 

..Nis PUSH 

H 

5 SAVE PTR 

0339 " 

CD 002C" 

CALL 

NUMIT 

5 GET ASCII NUMBER 
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033C-- ~El POP ' H 5 HL -> FIRST DIGIT 

5 + 

3 WE SEARCH THE DIGIT STRING FOR THE DECIMAL POINT 


033D 

3E2E 


MV I 

A, -'. " 

5 DP TO COMPARE 

033F 

BE 

u n N .A'. m 

CMP 

M 

3 IS IT POINT? 

0340-' 

4.>J 


I NX 

H 

3 POINT AFTER 

0341 - 

20FC 


•JRNZ 

. . N2 

3SCAN FOR IT 

0343" 

2B 


DCX 

H 

3 HL -> AT DP 



, T 

S DECIMAL POINT 

FOUND, WE COUNT 

OUT THE DIGITS 



? UNTIL DECIMAL 

POINT COUNTER EXHAUSTED OR END 



5 OF STRING IS REACHED 




? E — 

» 

NUMBER OF 

DIGITS ALLOWED i 

AFTER DP 

0344 

D1 

« «N5s 

POP 

D 


. ■; 



TST 

E 

3 IF 0, EXITC 

0345" 

7B 

+.IFN E 


-A, L MOV 

A, E 3 

0346" 

B7 


ORA 

A3 


0347" 

OO *1 *“> 

X.O .1. 


•JRZ 

„ . OUT 


0349" 

23 


INX 

H 

5 HL “> AFTER DP 

034A-' 

ID 

II M « 

OCR 

E 

3 ONE LESS DIGIT 

034B " 

FA 035B" 


JM 

. . OUT 

3 ALL GONE? EXIT 




TST 

M 

3 FOUND THE NULL?! 

034E" 

7E 

+.IFN M 


-A?, ?C MOV 

A, M 3 

034F " 

B7 


ORA 

A3 


0350 " 

23 


INX 

H 

3 HL -> AT NEXT CHAR 

0351 •" 

20F7 

H J„ 

JRNZ 

. . N3 

3 NO? CONTINUE 

( 


7 *1** 

3 END 

OF STRING 

REACHED, NUMBER 

MUST BE PADDED WITH 



3 TRAILING ZERO: 

S UNTIL. THE DECIMAL POINT COUNTER 



3 IN E 

M 

BECOMES I 

MINUS 


0353*** 

2B 

7 

DCX 

H 

3 HL -> AT NULL 

0354 *** 

3630 

M n N 4 » 

MV I 

M, "0" 

3 TRAILING 0 

0356*** 

23 


INX 

H 


0357*** 

ID 


DCR 

E 

3 ONE LESS DIGIT 

0358*** 

F2 0354-' 

n i 

JP 

. . N4 




1 F 

5 EXIT 

POINT 





3 PUT 

IN TRAILING NULL, POP OFF 

STRING ADDRS EXIT 

035B *** 

D1 

.OUTs 

POP 

D 

3DE -> TOP OF STRING 




CLR 

M 

SENDING NULL! 

035C *** 

3600 

+.IFN M 


-A, I! MVI 

M , 03 C 



XRA 

A 33 



035E *** 

El 


POP 

H 

3 RESTORE OTHERS 


3E08 


MV I 

A, $STRADR 

5 RETURN TYPE STRING 

0361". 

C3 0000s IB 


JMP 

RETNONE 

3 RETURN 

0364" 


„„ FMTX 

*1 

u 



0364 -' 

CGCC 7DCC 

is 

„ WORD 

OCCCCH,07DCCH 

3.1 

0368 -' 

2400 14F4 

■ N6 s 

„ WOREi 

024Q0H,014F4H 

3 10**6 


. END 
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EF . - 

+++++ SYMBOL TABLE +++++ 




AASIM 

005F 


ALSTS 

00OU i! U4 

A 


I-*.*-J. 

r~i i \ *-.« w .i. i -i 

^ uf .... 

ARCTAN 

0268 •' 

I 

ARG 

0000*05 

X 

ARGEND 

6252 

ARGSTK 

60CC 

BACKGR 

65CC 


BLANK 

0020 


BOTRAM 

6000 

BOTTOM 

64 A9 

■CARTYP 

0000“06 

X 

CHARSL 

65 DD 


CLEARS 

60CA 

CNTRL 

oooc 

CNTRLC 

65CD 


CNTRLO 

65D9 


CNTRLU 

0015 

CNTRLZ 

65E4 

CNVFS 

0001 

I 

COSINE 

01F9" 

i 

CPLFLG 

6540 

CPLIN 

681C 

CPLTMP 

672C 


CPREF 

691C 


CP.ARG 

0001 

CP.MXL 

0080 

CP.MXR 

0014 


CP. NO 

0002 


CR 

OOOB 

CSBLOK 

668B 

CSFLAG 

6260 


CURCX 

6813 


CURCY 

6815 

CURLIN 

6934 

CURREN 

64A5 


CVBSTR 

0000*07 

X 

CVFSTR 

0000 s 08 X 

C . CO 

0011 

C. Cl 

0012 


C.CX 

OOOB 


C.CY 

OOOB 

C.DP 

0013 

C.ST 

0002 


C. X 

0003 


C. XF 

OOOF 

C. XS 

0007 

C. Y 

0005 


C.YF 

0010 


C. YS 

0009 

DBTON 

65CE 

DEVBL 

6589 


DEVCLO 

6579 


DEVCLl 

657B 

BEVCL2 

657D 

DEVCL3 

657F 


DEVCL4 

6581 


DEVCL5 

6583 

BEVCL6 

6585 
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„ INSERT 

As S.ASM 


REMARK 

© 

/ 

* 

© 


*«* # ft 

© 


ftft# 

© 


ft-ftftftftft'ft 

© 


•ft 

© 


ft 

© 


ft 

© 


ft 

© 


ft 

© 

© 


ftftftftftftft 


© “WHEN YOU CARE ENOUGH TO PROGRAM 

© THE VERY BEST" 

© 

@ ZGRASS V3« 00000000 

©BY .JAY FENTON, NQLA DONATO, AND TOM DEFANTI 
© (C) 1978 

© 

©/ 

.LINK 
.IDENT ES 
. PREL 

.INSERT As MAC.ASM 

© 

. INSERT As ZRAM.ASM 
„INSERT A s NCUEQU.ASM 
.INSERT As CPLEQU.ASM 


« 4- 



5 INTERNALS 


7 

.INTERN 

AND 

s Lug I lal and 

.INTERN 

CPAREN 

3 CLOSE PAREN 

.INTERN 

DOPTAB 

5 DOUBLE CHAR OPERATOR: 

.INTERN 

EQ 

3 EQUAL 

,INTERN 

FADD 

5 FLOATING ADD 

„INTERN 

FDIV 

3 FLOATING DIVIDE 

„INTERN 

FMOD 

3 FLOATING REMAINDER 

.INTERN 

FMUL 

3 FLOATING MULTIPLY 

.INTERN 

FRND 

5 FLOATING RANDOM 

.INTERN 

FSUB 

3 FLOATIMG SUBTRACT 

.INTERN 

GE 

5 GREATER OR EQUAL 

„INTERN 

GT 

3 GREATER 

.INTERN 

LE 

5 LESS OR EQUAL 

.INTER 

LT 

3 LESS 

.INTERN 

ME 

3 NOT EQUAL 

.INTERN 

OPAREN 

3 OPEN PAREN 

.INTERN 

OR 

3 LOGICAL OR 

.INTERN 

RMDR 

5 COMPUTE REMAINDER 

.INTERN 

SOPTAB 

3 SINGLE UHAR UPERAl UR: 

.INTERN 

UOPTAB 

3 UNARY OPERATORS 


3 EXTERNALS 
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ES 


. EXTERN 

CAT 

5 STRING CONCATENATION 

EXTERN 

CGNVAB 

5 CONVERT BOTH 

. EXTERN 

C'ONVB 

3 CONVERT OPERAND B 

.EXTERN 

DECSIY 

"DEC IY BY 5 

.EXTERN 

DONCU 

3 PERFORM NCU OPERATION 

.EXTERN 

ERRPGM 

?ERROR TRAP 

.EXTERN 

FPOP 

3 POP FLT FROM NCU STACK 

.EXTERN 

FPUSH 

5 PUSH FLT ON NCU STACK 

.EXTERN 

GETOPND 

3 GET OPERAND 

.EXTERN 

I GET 

3 GET INT FROM NCU STACK 

.EXTERN 

IND 

3 INDIRECTION 

.EXTERN 

I POP 

3 POP FROM NCU STACK 

.EXTERN 

IPSHO 

5 PUSH 0 ON NCU STACK 

EXTERN 

I PUSH 

3 PUSH TO NCU STACK 

.EXTERN 

IYNCU 

3IY STACK -> NCU 

.EXTERN 

NCIJIY 

5NCU ~> IY STACK 

.EXTERN 

POPOPND 

5 POP OPERAND 

.EXTERN 

PSHOPND 

5 PUSH OPERAND 

.EXTERN 

PUTOPND 

5 PUT OPERAND 

.EXTERN 

SCMP 

3 STRING COMARE ROUTINE 

5 ++++ 




5 FSUB 

5 SUBTRACTS 2 FLOATING POINT OPERANDS 
» 

5 NEEDS s 

3 IY->OPERAND B 
? OPERAND A 

It 

3 

3 RETURNSa 

5 IY-XOPERAND A - OPERAND B) 


0001 

06 

FSUB a 

. BYTE 

TFVAL 


0002 y 

CD 0000a 14 


CALL 

POPOPND 

5 GET OPERAND B 

0005 

CD 0000314 


CALL 

POPOPND 

3 GET OPERAND A 

0008 *'* 

3E19 


MV I 

A,N.XCHF 

3 EXCHANGE THEM 

000A " 

CD 0000a08 


CALL 

DONCU 

3 NCU—>B ■» A 

000D ■" 

3E11 


MV I 

A,N„FSUB 

3 COMPUTE A-B 

OOOF •' 

CD 0000a08 

FRET a 

CALL 

DONCU 

3 DO LAST OPERATION 

0012-' 

3E06 


MV I 

A.TFVAL 

3 RETURN TYPE FLT 

0014"' 

C3 0000a15 


•JMP 

PSHOPND 

3 PUSH THE RESULT 


? -M-4H- 


3 FADD 

5 ADDS 2 FLOATING POINT OPERANDS 
5 NEEDSa 

5 IY->GPERAND B 
3 OPERAND A 

? ■ ■ • ; :, . ■■■ 

5 RETURNSS 

3 IY-XOPERAND A + OPERAND B) 
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ES 

FADD,FSUB - FLOATING POINT ADD,SUBTRACT 


0017" 

06 

FADDs 

. BYTE 

$FVAL 


0018-' 

CD 0000s14 


CALL 

POPOPND 

SGET OPERAND B 

001B" 

CD 0000s14 


CALL 

POPOPND 

5 GET OPERAND A 

00 IE" 

3E10 


MV I 

A,N.FADD 

5 COMPUTE A+B 

0020" 

18ED 


■JMPR 

FRET 

$PUSH A+B 


5 ++++ 


5 MOD . 

5 DIVIDES 2DOUBLE PRECISION INTEGERS AND 
S RETURNS THE REMAINDER 

n 

7 . 

5 NEEDSs 

S IY->OPERAND B 
5 OPERAND A 

u 

V 

S RETURNSs 

? IY->OPERAND A - (OPERAND A / OPERAND B5 * OPERAND B 


0022** 

00 

FMODs 

.BYTE 

$DVAL. 


0023*" 

CD 0000s14 


CALL 

POPOPND 

SGET OPERAND B 

0026" 

CD 0000s14 


CALL 

POPOPND 

5 GET OPERAND A 

0029 ". 

3E39 


MVI 

A,N.XCHD 

5 EXCHANGE THEM 

002B" 

CD 0000S08 


CALL 

DONCU 


002E " 

CD 003B" 


CALL 

RMDR 

SGET REMAINDER 

0031 ", 

' 3E1C 


MVI 

A,N.FLTD 

5CONVERT TO FIT 

0033 x 

CD 0000s08 


CALL 

DONCU 


0036*" 

3E06 


MVI 

A,$FVAL 

5 RETURN TYPE FLT 

0038 *" 

C3 0000s15 


JMP 

PSHOPND 




n + + + + 






7 

5 RMDR 






3 COMPUTES THE 

REMAINDER OF 

2 DOUBLE PRECISION 



5 INTEG 

EPS AND 

THE QUOTIENT 

y TOO ! 



2 

5 NEEDS 

g 





5 NCU- 

>OPERAND B 




tf 

7 

OPERAND A 




7 

i RETURNSs 





? NCU 

STACK 

HAS REMAINDER 

AS TOS 



; quo 

It 

? 

IT I ENT A 

S NOS 


003B" 

FDE5 

RMDR s 

PUSH 

Y 


003D" 

FD21 6538 


LX I 

Y,RMDTMP 

5IY—>TEMP AREA 

0041" 

3E00 


MVI 

A,$DVAL 

? SAVE OPND B 

0043" 

CD 0000s16 

« 4.. 

CALL 

PUTOPND 

SON IY STACK 



7 * 

5 FROM 

HEREON 

IN, THE COMME 

NT REFLECT THE CONTENT 



5 OF THE NCU S 

TACK. FOR EXAMPLES B,A DENOTES 



5 B AS 

TOS, A 

AS MO8 


0046 " 

3E37 

7 ' 

MVI 

A,N.PTOD 

7 A 7 A 

0048 " 

CD 0000S08 


CALL 

DONCU 
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ES 

MOD, RMD - REMAINDER FUNCTIONS 


004B" 

CD 0000512 

CALL 

IYNCU 

5 B, A, A 

004E"' 

3E2F 

MVI 

A,N«DDIV 

3 A/B, A 

0050" 

CD 0000508 

CALL 

DONCU 


0053"* 

F5 

PUSH 

PSW 

"SAVE QUOTIENT STATUS 

0054"' 

3E37 

MV I 

A,N»PTOD 

3 A/B, A/B, A 

0056 " 

CD 0000508 

CALL 

DONCU 


0059"' 

CD OOOOs12 

CALL 

IYNCU 

;B, A/B, A/B, A 

005C •" 

3E2E 

MV I 

A, N„ DMUL 

SB-H-A/B, A/B, A 

005E" 

CD 0000508 

CALL 

DONCU 


0061"'■ 

CD OOOOs13 

CALL 

NCUIY 

? A / B ? A 

0064 •" 

3E39 

MV I 

A, N„XCHD 

5 A, A/B 

0066 

CD OOOOsOS 

CALL 

DONCU 


0069" 

CD 0000512 

CALL 

IYNCU 

3 B-s-A/B, A, A/B 

006C"' 

3E2Ei 

MV I 

A,M,DSUB 

SA-B-H'A/B, A/B 

006E"' 

CD 0000s 08 

CALI- 

DONCU 


0071"' 

FI 

POP 

PSW 

3 RESTORE CCS 

0072"' 

FDE1 

POP 

Y 


0074" 

C9 

RET 





“ -|—|—}—{- 

tt 

7 

5 FDIV 

5 DIVIDES 2 FL 

.GATING POINT 

OPERANDS 


? NEEDSs 

5 IY->OPERAND B 
? OPERAND A 

tt 

7 

? RETURNSs 

3 IY-XOPERAND A / OPERAND B) 


0075"* 

06 


FDIV 5 

BYTE 

$FVAL 


0076" 

CD 

0000514 


CALL 

. POPOPND 

3GET OPERAND B 

0079"* 

CD 

OOOOs14 


CALL 

POPOPND 

3GET OPERAND A 

007C"' 

3E: 

19 


MV I 

A, N.XCNF 

5 EXCHANGE THEM 

007E "* 

CD 

OOOOs08 


CALL 

DONCU 

5NCU->B,A 

0081"' 

3E 

13 


MV I 

A,N.FDIV 

5 DIVIDE THEM 

0083"* 

IBs 

3 A 

® ,.lm ,-L. 

^ *i nr tt 

JMPR 

FRET 

3 PUSH & RETURN 




V 

5 FMUL 

5 MULTI 

n 

PLIES 2 1 

"LOATING POINT 

OPERANDS 




r 

5 NEEDS 
1 IY— 

>OPERAND 

B 





« 

7 

** 

OPERAND 

A 





, 7 ' 

3 RETUR 

NS 5 






3 IY 

i ■ 

-> OPERAND A * OPERAND 

B 

0085"* 

06 


FMUL 5 

„ BYTE 

$FVAL 


0086"* 

CD 

OOOOs14 


CALL 

POPOPND 

5 GET OPERAND B 

0089 "* 

CD 

OOOOs14 


CALL 

POPOPND 

3 GET OPERAND A 

008C 

3E: 

i') 

jfc 4,V . 


MV I 

A,N.FMUL 

3 MULTIPLY 
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ES 

FDIV, FMUL - FLOATING DIVISION, MULTIPLICATION 


008EC3 OOOF " JMP FRET 3 PUSH & RETURN 

it 

-j nrTTT 

It 

') 

3 FRND 

3 PRODUCES A RANDOM FLOATING POINT NUMBER IN THE 
3 GIVEN RANGE (OPERAND A - OPERAND B) 

3 NEEDSs 

3 IY->OPERAND B 

3 OPERAND A 

«ft 

? : 

5 RETURNSs 

3 IY->RANDOM NUMBER BETWEEN OPERAND A 

3 AND OPERAND B INCLUSIVE 


0091 

06 

FRNDs .BYTE 

: $FVAL. 


0092-' 

CD 0000 s OC 

CALL 

GETOPND 

5 NCU—>B 

0095*“ 

CD 0000s14 

CALL 

POPOPND 

“NCU”>B, B 

0098 

CD 0000 s OC 

CALL 

GETOPND 

5 NCU—> A , B, B 



, T 

5 HERE WE ATTEMPT TO FIND 

WHICH ARGUMENT WAS BIGGER 



; WE MUST RES 

CLVE THE TWO 

ARGUMENTS INTO A POSITIVE 



5 DIFFERENCE 

H * 

AND A LOWER 

BOUND 

009B •" 

3E11 

1 

MV I 

A,N» FSUB 

5 NCU—>B—A, B 

009D *’* 

CD 0000 s 08 

CALL 

DONCU 




TST 

A 

5 CHECK SIGNII 

00 AO' 

B7 

+ ORA 

a:i 


00 A1 

F2 00A8"' 

jp 

. . R1 

5 NO? >0 

00A4 

3E15 

MV I 

A, N.CHSF 

5 NCU->A-B, Ef 

00A6 •" 

1805 

JMPR 

. „ R2 


00 A8 •" 

CD 0000sOC 

..R1s CALL 

GETOPND 

? NL-U-^A, B--A, B 

00 AB •' 

3E19 

MV I 

A,N.XCHF 

;NCU->B-A, A, B 

GOAD-' 

CD 0000s08 

„.R2s CALL 

DONCU 

§ WHATEVER 



? ~r 

; SINCE THE RANDOM NUMBER 

WE GET WILL BE BETWEEN 



s 0 AND .5, WE MULTIPLY THE RANGE BY 2 TO COMPENSATE 



", SINCE THE C 

u . 

ALCULATIONS 1 

NEED A 0 10 1 RftNuE 

OOBO •' 

3E17 

■ y 

MV I 

A,N.PTOF 

3 NCU~>RANGE,RANGE,LO 

00B2 •' 

CD 0000s08 

CALL 

DONCU 


00B5-" 

3E10 

MV I 

A,N.FADD 

3 NCU—>RANGE*2,LO 

00B7 •' 

CD 0000s08 

CALL 

DONCU 


OOBA’" 

CD 00E7 •" 

CALL 

RND 

3 NCU->RND, RANGE, LO 

OOBD ■' 

EB 

XCHG 


5DE GETS RAND NUM 

00 BE-" 

CD 0000s11 

CALL 

I PUSH 

3 PUSH ON NCU STACK 

OOC1 •" 

CD 00E7"' 

CALL 

RND 

3 GET "'NUTHER IS BITS 

00C4" 

EB 

XCHG 


3 DE GETS RAND NUM 


5 + 

5 THE EXPONENT IS ZEROED, THE HI ORDER BIT OF 
5 THE MANTISSA SET TO NORMALIZE. THIS GIVES A 
3 RANDOM NUMBER BETWEEN .5 AND 1 


CLR 


D 


5 CLEAR EXPi: 
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ES — 

RND - RANDOM NUMBER STUFF 


00C5” 

1600 

+ ., IFN D 

XRA All 

-A?, ?!I MVI 

D 


, on: 

00C7 *" 

CBFB 

SET 

7, E 

3 SET 

HI BIT 


00C9*’* 

CD 0000s11 

CALL 

I PUSH 

3 RND 

IS .5-1 


OOQC 

CD 0000s10 

CALL 

IPSHO 

7 NUW 

PUSH .5 



s + 

3 WE SUBTRACT .5 TO GET A NUMBER BETWEEN 0 AND 
? .5, THE RANGE WAS MULTIPLIED BY 2 EARLIER, 

3 WE EFFECTIVELY HAVE A NUMBER BETWEEN 0 AND 1 


OOCFr* 

11 0080 


LX I 

D,080H 

3 ONTO NCU STACK 

00 D2 x 

CD 0000s11 


CALL 

I PUSH 


00D5 

3E11 


MV I 

A 7 N.FSUB 

3 SUBTRACT TO MAKE 

OOD 7 *" 

CD 0000S08 


CALL 

DONCU 

5 RANGE 0-.5 



3 NOW 

ALL WE DO 

IS MULTIPLY THE 

THE RANGE AND 



3 ADD 

M ^ 

THE LOWER 

BOUND! 


ODD A' 

3E12 

7 

MV I 

A,N.FMUL 

5 NCU->RANGE#RND, U 

OODC •** 

CD 0000508 


CALL 

DONCU 


00 DF<- 

CD 0000507 


CALL 

DECSIY 


00E2 *' 

3E10 


MVI 

A,N„FADD 

3NCU->LO+RANGE*RMD 

00E4 *“ 

C.3 OOOF ■" 

? -h+-h+ 

ti 

* 

3 RND 

JMP 

FRET 



5 RANDOM BITSTRING ROUTINE - RETURNS 16 BITS OF 
5 MADNESS IN HL. TAKEN FROM HVGSYS ORIGINALLY 
3 WRITTEN BY JEFF FREDRICKSON 


3 RETURNSs 

3 HL = RANDOM NUMBER (-32767 TO 32767) 

II 

7 

3 DESTROYS." EVERYTHING (ENTIRE 8080 REGISTER SET) 


RND! 


GET HI ORDER 


00E7 

CD 00F2“* 

RND 5 CALL 

OOEA-' 

7C 

MOV 

OOEB 

prc* 

PUSH 

00 EC *** 

CD 00F2" 

CALL 

OOEF *** 

FI 

POP 

OOF 0 

6F 

MOV 

00F1 

C9 

RET 

OOF 2 

2A 65.5F 

..RND 13 LHLD 

OOFS 

CD 010C" 

CALL 

OOFS'" 

01 0017 

LX I 

OOFS'" 

09 

DAD 

OOFC: ■" 

8A 

ADC 

OOFD ■' 

22 655F 

SHLD 

0100 

2A 6561 

LHLD 

0103'' 

5F 

MOV 

0104'" 

CD 010C" 

CALL 

0107" 

.1.9 

DAD 

0108" 

22 6561 

SHLD 

01 OB" 

C9 

RET 


A, H 
PSW 

..RND1 5 GET LG ORDER 

PSW 

L, A 

RANSHT 
..SHFT 

B, 23 
B 

D 

RANSHT 
RANSHT-t-2 
E,A 
..SHFT 
D 

RANSHT+2 
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ES 

RND - RANDOM NUMBER STUFF 


0 1 oc •" 


SHIFTS MVD 

B,HC 

o:!.oc-*‘ 

44 

+ MOV 

B-, H 

01OD "■ 

4D 

+ MOV 

B-Hl 7 H~Kl I 



CLR 

Ail 

01OE •" 

AF 

+ . IFN A~A, L 

MV I 

01OF "' 

1607 

MV I 

D,7 

0111"' 

29 

..SHIs DAD 

H 

■0112' 

17 

RAL 


0113"' 

15 

DCR 

D 

0114"' 

20FB 

JRNZ 

n . SH 1 

0116"' 

09 

DAD 

B 

0117"' 

8A 

ADC 

D 

01 IS' 

C9 

RET 



A, 0 3 C 


XRA 


A33 


; HH-++ 


CMP 

COMPARISON ROUTINE FOR RELATIONAL 


OPERATORS 


NEEDSs 

iy_>operand B 
OPERAND A 

RETURNSs 

BOTH OPERANDS POPPED OFF. 
CC •" S SET FOR COMP ARI SON 


CALLSs 
SCMP 
FCMP 


STRING COMPARE 
FLOATING COMAPARE 


0119" 

FD4600 

CMP s 

MOV 

B,E.TYP(Y) 

? B=TYPE OF OPNDB 

one- 

FD7EFB 


MOV 

A ■> E „ TYP-E. 

SIZ(Y) SA=TYPE OF OPNDA 

011F "' 

B8 


CMP 

B 

5 TYPES EQUAL? 

0120"' 

2807 


•JRZ 

» . C2 

?DISPATCH, NO CONV 

0122"' 

3801 


JRC 

„ „ Cl 

?CONVERT TO TYPE OF 

0124"' 

47 


MOV 

B,A 

?CONVERT TO TYPE OF 

0125"' 

CD 0000s 05 

„ »Cl s 

CALL 

CONVAB 

? BOTH OPERANDS 

0128"' 

78 


MOV 

At B 

5 A-CONVERTED TYPE 

0129" 

FE08 

it » L 1 .4. H 

CPI 

*STRADR 

5 STR I NGS? 

012B-" 

CA 0000s17 


JZ 

SCMP 

5 STRING COMPARE 

012E-" 

FE06 


CPI 

$FVAL 

;FLOATING NUMS? 

0130"' 

280F 


JRZ 

FCMP 

5 FLT COMPARE 


■ +hh- 


A 


ICMP 

COMPARES 2 SINGLE PRECISION INTEGERS 
< CAN ALSO BE USED FOR POINTERS ) 


0135 
0136 
0139 


CD 0000s14 
EB 

CD 0000s14 
EB 


ICMP: 


CALL 

XCHG 

CALL 

XCHG 


POPOPND 

POPOPND 


S GET OPND B 
?HL=OPND b 
* GET OPND A 
;HL=A,DE=B 
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ES 

COMPARE ROUTINES 


013 A •" 

B7 

4- 

CLCII 

ORA 

All 


0.1.3B •" 

ED52 


DSBC 

D 

5 COMPUTE A- 

013D" 

11 0000 

CRETs 

LX I 

D,0 


0140-' 

09 

*j H—}—j— 

RET 




S FCMP 

? COMPARES 2 FLOATING POINT OPERANDS 

tt 

5 NEEDS 5 

5 IY->OPERAND B 
? OPERAND A 

tt 

*? 

? RETURNSs 




1 

DE = 0 (FAL 

SE) 




? 

n 

7 

CONDITION C 

ODES SET FOR 

(OPERAND A - OPERAND 

0141- 


7 ~~ 

FCMP s 


/ 

0141" 

CD 0000s14 


CALL 

POPOPND 

5 GET OPERAND B 

0144-' 

CD 0000s14 


CALL 

POPOPND 

5 GET OPERAND A 

■0147"' 

3E19 


MV I 

A, N.. XCHF 

■EXCHANGE THEM 

0149- 

CD OOOOsOS 


GALL 

DONCU 


014C •' 

3E11 


MV I 

A t N„FSUB 

5 SUBTRACT THEM 

014E •" 

CD , 00005 08 


CALL 

DONCU 





TST 

A 

5 CHECK CCSC 

0151 '- 

B7 

Hh 

ORA 

A3 


0-152" 

18E9 


•JMPR 

CRET 

5 RETURN 


; •+•++■+- 


5 RELATIONAL OPERATORS LT, GT, GE, LE, NE, EQ 

tt 

V 

5 NEEDSs 

5 IY~>OPERAND B 
5 OPERAND A 

tt 

*J> . 

5 RETURNSs 

5 IF THE RELATIONAL OPERATOR WAS SATISFIED BY THE 

5 RESULT OF (OPERAND B - OPERAND A) 

? IY—>1 (TRUE) 

? ELSE 

S IY—>0 (FALSE) 


0154*" 

FE 

GEs 

. BYTE 

$ANYVAL. 


0155'" 

CD 0119" 


CALL 

CMP 

5 COMPARE A- 

0158*" 

F2 016F" 


JP 

TRUE 

? A >= B? 

015B" 

1813 ■ 


•JMPR 

FALSE 

SA < B 

015D" 

FE 

LEs 

,. BYTE 

SANYVAL 


015E" 

CD 0119" 


CALL 

CMP 

5 COMPARE A-! 

0161" 

280C 


JRZ 

TRUE 

5 A = B? 

0163" 

FA 016F" 


JM 

TRUE 

? A < B? 

0166" 

1808 


JMPR 

FALSE 

5 A > B 

0168- 

FE 

LTs 

»BYTE 

$ANYVAL 
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RELATIONAL OPERATORS 


0169-' 

CD 0119"' 


CALL 

CMP 

5 COMPARE A”B 

016C-" 

F2 0170" 


UP 

FALSE 

7 A > ss B? 

016F"' 

13 

TRUES 

I NX 

D 

S DE=1 (TRUE) 

0170-' 

CD 0000s11 

FALSEs 

CALL 

I PUSH 

5 PUSH DE 

0173-' 

3E1D 


MV I 

A > N.FLTS 

5 CONVERT TO FLT 

0175-' 

C3 OOOF" 


JMP 

FRET 


0178-" 

FE 

GTs 

. BYTE 

$ANYVAL 


0179-- 

CD 0119" 


CALL 

CMP 

5 COMPARE A-B 

0170" 

28F2 


JRZ 

FALSE 

5 A = B? 

017E-" 

FA 0170" 


JM 

FALSE 

5 A < B? 

0181 ■" 

1 SEC 


JMPR 

TRUE 

?A > B 

0183-' 

FE 

EQs 

. BYTE 

*$anyval 


0184" 

C D 0119 *' 


CALL 

CMP 

5 COMPARE A-B 

0187-' 

20E7 


■JRNZ 

FALSE 

;A != B? 

0189 -' 

18E4 


JMPR 

TRUE 

? A = B 

018B-" 

FE 

NEs 

.BYTE 

$ANYVAL 


0180 

CD 0119"' 


CALL 

CMP 

5 COMPARE A-B 

018F-" 

28DF 


JRZ 

FALSE 

;A = B? 

0191 ■" 

18DC 

* 4 . 4 —f— 

tt 

3 

5 CHKTF 

JMPR 

TRUE 

;a != b 



? INTERNAL FUNCTION TO RETURN 

0 OR 1 BASED ON 



5 WHETHER AN OPERAND IS 0 OR 

It 

NOT * 



7 

5 NEEDSs 






S'. I Y—> 

FLOATING OPERAND 




7 

? RETURNSs 





5 NCU 

STACK 

HAS FLOATING OPERAND 



5 D HAS 0 IF 

» 

OPERAND WAS 0, 

OTHERWISE 1 



7 

" CALLSs 






5 GETOPND - 

GET OPERAND 




5 DONC 

:!J - DO 

NCU OPERATION 




7 

7 •"•*'***•**—*— 




0.193"' 

CD 0000SOC 

CHKTFs 

CALL 

(GEpUPND 

? GET OPERAND 

0196-' 

3E17 


MV I 

aTn.ptof 

5 DO NCU OP TO 

0198 "' 

CD 0000 s 03 


CALL 

DONCU 

5 SIGN OF OPERAND 




TST 

ac: 


019B 

B'7 

t 

ORA 

Ali 





CLR 

D 

5 ASSUME Or. 

0190-' 

1600 

+ „IFN D 


~A?, ?C MVI 

D » 0 ] C 



XRA 

ai:j 



019E" 

ijy 


RZ 


50? RETURN FALSE 

019F-" 

14 


I NR 

D 

5 RETURN TRUE <1) 

01 AO"' 

C9 

5 4*4*4’*!" 

a 

7 \ 

; AND 

RET 





5 LOGICAL AND 

OPERATION 




. .7 

5 NEEDSs 






5 IY—> 

FLOATING OPERAND B 
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ES 

LOGICAL AMD AMD OR 


FLOATING OPERAND A 


S RETURNSs 

5 IY-> FLOATING 1 IF A AND B BOTH 1 
ELSE FLOATING 0 


5 CALLSs 
5 CHKTF 


INTERNAL CHECK FOR TRUE, FALSE 


01A1 •" 

06 

AMDs 

.BYTE 

$FVAL 


01A2"' 

CD 0193-' 


CALL 

CHKTF 

5 CHECK SIGN 

01A5-" 

5A 


MOV 

E, D 

?SAVE QPND B SIGN 

01A6 

CD 0193"' 


CALL 

CHKTF 

5 CHECK SIGN OF A 

01A9 

7 A 


MOV 

A, D 

5 ASSIGN OF B 

01A A •" 

A3 


ANA 

E 

? AND THEM 

01AB" 

11 0000 


LX I 

D, 0 

5 ASSUME FALSE 

01 AE"‘ 

CA 01.70"' 


JZ 

FALSE 


01B1 

C3 016F •" 

« ++++ 

? 

$ OR 

■JMP 

TRUE 

? WAS TRUE! 



5 LOGICAL OR 

w 

ROUTINE 




7 

? NEEDS 

M 




IY—> FLOATING OPERAND B 
FLOATING OPERAND A 

RETURNSs 

IY-> FLOATING 0 IF A AND B BOTH 0, 
FLOATING 1 




CAL 


CHKTF 


INTERNAL ROUTINE TO CHECK TRUE, FALSE 


01B4 

06 

ORs 

.BYTE 

$FVAL 


0.1.B5-" 

CD 0193' 


CALL 

CHKTF 

5 GET SIGN OF B 

01BS •" 

. SA 


MOV 

E, D 

? SAVE IN E 

0.1. B9-' 

CD 01.93-' 


CALL 

CHKTF 

5 GET SIGN OF A 

01BC "' 

7A 


MOV 

A, D 

;A=STGN OF b 

01BD -' 

B3 


ORA 

E 

5 DO THE OR 

01 BE •" 

11 0000 


LX I 

D, 0 

5 ASSUME FALSE 

Old 

CA 0170"' 


JZ 

FALSE 


01C4-' 

C3 016F •" 


JMP 

TRUE 

5 WAS TRUE AFTER ALL 


| m|«* <*|** 


OPERATOR TABLES 

UOPTAB - UNARY OPERATORS 

SOPTAB - SINGLE CHAR BINARY OPERATOR 

DOPTAB - DOUBLE CHAR UNARY OPERATORS 

ENTRIES ARE AS FOLLOWS:: 

OFFSET DESCRIPTION 
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DATA AREAS 


5 0. CHAR 


5 O.PREC 
; 0.TYP 
? 0.SUB 


CHARACTER DESCRIPTION OF OPERATOR 
THIS IS 2 BYTES, 2ND BYTE NULL IF 
IT IS A SINGLE CHAR OPERATOR 
PRECEDENCE OF OPERATOR 
TYPE OF VALUES OPERATOR WANTS 
TOKEN FOR SUBROUTINE TO EVALUATE 


01C7" UOPTABs 

OPR ,8, CP. FSUB 5 UNARY MINUS£ 


01C7" 

2D 

4 


.BYTE 



01C8 

00 

+. IFB 

1:3 

, C.BYTE 

03 il.BYTE 3 


0109 •“ 

08 

4 


. BYTE 

O 


01C A ■" 

OF 

4 


. BYTE 

CP.FSUB 3 






OPR 

, 8, CP. FADD 

slJNARY PLUS! 

01CB •" 

2B 

4- 


„ BYTE 

**’ 4 *'* 


01CC 

00 

+ . IFB 

i::j 

, i:. BYTE 

03 E.BYTE 3 


01 CD-- 

08 

4 


„ BYTE 

8 


01CE 

OE 

4* 


„ BYTE 

CP.FADD 3 






OPR 

,9, CP. IND 

SINDIRECTIONC 

01CF-' 

40 

4* 


BYTE 



01 DO- 

00 

+ . IFB 

1:3 

, C.BYTE 

03 Z » BYTE 3 


pi in* 

09 

4- 


.BYTE 

9 


01D2-’ 

15 

4* 


.BYTE 

CP.IND 3 


0103“ 


OPARENs 

OPR 

" <- , , 0,0 

5 OPEN PARENL' 

01D3 

pp, 

4* 


.BYTE 

-' ( -' 


01D4 "■ 

00 

+ . l'FB 

c 3 

, L. BYTE 

03 C.BYTE 3 


01D5 

00 

+' 


. BYTE 

0 


01 DA"' 

00 

4* 


„ BYTE 

0 

3 

01D7-" 


CP ARE 

Ns 

OPR 

•" ) , 0 , 0 

; CLOSE PAREN Z 

01D7-- 

29 

4 


. BYTE 

-•) -■ 


01D8-' 

00 

+ . IFB 

C 3 

, t.BYTE 

03 £ .BYTE 3 


01D9"' 

00 

4* 


.BYTE 

0 


01 DA-' 

00 

4 


BYTE 

0 

3 

01DB-’ 


SOPTABs 








OPR 

* 1 ? zS L P « UR 

5 LOGICAL ORE 

01DB-' 

7C 

4 


. BYTE 

.•* < .*• 
t 


01 DC-' 

00 

+ . IFB 

i: 3 

, C .BYTE 

03 I!« BYTE 3 


01DD-' 

02 

4- 


. BYTE 

V* 


01DE -’ 

ID 

4* 


.BYTE 

CP.OR 3 






OPR 

,3, CP. AND 

SLOGICAL ANDII 

01DF-' 

se; 

4 , 


.BYTE 

•- 


01E0-" 

00 

+ . IFB 

1:3 

, i: „ BYTE 

03 I! „ BYTE 3 


DIE! " 

03 

4 


. BYTE 

O 


01E2 •" 

1C 

4-' 


„ BYTE 

CP.AND 3 






OPR 

, , 5, CP. FSUB 

? SUBTRACT I ON i: 

01E3 •" 

2D 

4- 


. BYTE 

-' - -' 


01E4" 

00 

+ „ IFB 

c 3 

, t.BYTE 

03 £.BYTE 3 


01E5-" 

05 

4 


. BYTE 

5 


01 ES¬ 

OF 

4 


. BYTE 

CP.FSUB 3 






OPR 

,5, CP.FADD 

5 ADDITION Z 

DI E7-" 

2B 

4 


„ BYTE 

** 4 ’’ 


01E8 "' 

00 

+ . IFB 

E 3 

, Z . BYTE 

03 Z .BYTE 3 


01E9 

05 

4 


„ BYTE 

5 


01EA-" 

OE 

■ 4 


„ BYTE 

CP.FADD 3 



OPR ,5, CP. CAT ; STRING CONCATENATI ON C! 
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DATA AREAS 


01EB ■" 

26 

4- 


..BYTE 


01 EC" 

00 

+ . IFB 

c:i 

, C « BYTE 01 C„BYTE 1 


01 ED-' 

05 

4* 


.BYTE 5 


01 EE 

14 

4 . 


.BYTE CP.CAT 1 






OPR " i6> CP. FMUL 

?MULTIPLICATIONE 

01EF-’ 

2A 

4 . 


.BYTE 


01FO v * 

00 

+ . IFB 

11 

, II. BYTE 01 C . BYTE 1 


01 FI- 

06 

4. 


.BYTE 6 


01F2 -' 

10 

+ 


.BYTE CP.FMUL 1 






OPR ,6, CP. FDIV 

5 DIVISION! 

01F3-' 

2F 

4* 


. BYTE •" / •" 


01F4-' 

00 

+ . IFB 

\:i 

, C.BYTE 01 C„BYTE 1 


01 F.5 •' 

06 

4 . 


.BYTE 6 


01F6 /' 

ii 

4* 


..BYTE CP..FDIV 1 






OPR •" V", 7 6 7 CP „ FMOD 

?REMAINDER! 

OIF. 7" 

50 

4 . 


. BYTE •" \ •" 


01F8 -' 

00 

+ „ IFB 

in 

, C.BYTE 01 C„BYTE 1 


01F9-' 

06 

4* 


,. BYTE 6 


01 FA" 

12 

4- 


.BYTE CP.FMOD 1 






OPR •" %, , 7 7 CP „ FRND 

5 RANDOM! 

01FB-' 

•~«ur 

4 . 


.BYTE 


01FC*** 

00 

+ „ IFB 

1:1 

, C.BYTE 01 C.BYTE 1 


01FD-" 

07 

-h 


.BYTE 7 


01FE -' 

13 

4 . 


.BYTE CP.FRND 1 






OPR ' , 4, CP.L.T 

“LESS THAME 

01FF -' 

30 

4* 


.BYTE 


0200 x 

00 

+.. IFB 

1:1 

, C.BYTE 01 E.BYTE I 


0201 •- 

04 

4* 


.BYTE 4 


0202 " 

16 

+ 


.BYTE CF’.LT 1 






OPR - >-' j i4i CP. GT 

?GREATER THAN! 

0203 •- 

3E 

4* 


..BYTE ->•" 


0204 -' 

00 

+ ■ IFB 

CI 

, II. BYTE 01 C. BYTE 1 


0205-' 

04 

4* 


.BYTE 4 


0206 -' 

17 

4* 


.BYTE CP.GT 1 






OPR , 4, CP. EG! 

?EQUAL! 

0207 "' 

3D 

4 . 


.BYTE 


0208"' 

00 

+ „ IFB 

1:1 

, II. BYTE 01 C . BYTE 1 


0209' 

04 

4 , 


.BYTE 4 


020A "' 

18 

4- 


.BYTE CP.EQ 1 






OPR , 4, CP. NE 

5 NOT EQUAL! 

020B-' 

23 

4 . 


.BYTE 


020C "' 

00 

+> IFB 

Cl 

, E . BYTE 01 C .. BYTE 1 


020D-" 

04 

4 . 


.BYTE 4 


020E •" 

19 

H- 


.BYTE CP.NE 1 






OPR AASN 7 , I 7 CP,. ASS 

5 ASSIGNMENT OPERC 

020 !~ '' 

SF 

4* 


. BYTE AASN 


0210"' 

00 

+ i IFB 

1:1 

, C„BYTE 01 C„BYTE I 


021 1 •" 

01 

4 . 


. BYTE 1 


0212-' 

03 



.BYTE CP.ASS 1 


0213"' 


DOPTABs 







OPR -’ < -’ 7 -' = -' ? 4 7 CP» LE 

? LESS OR EQUAL! 

0213-' 

3C 



.BYTE •"<-' 


0214"' 

3D 

+ „ IFB 

C -■ 

=-'L C. BYTE 01 C „ BYTE " = -'l 

0215- 

04 

4* 


. BYTE 4 


0216-' 

1A 

4*. 


..BYTE CP. LE 1 
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pC; 

DATA AREA 

C; 







OPR 

„> ? *’ ^ 

,4,CP» GE 5 GREATER 0! 

R EQUALC 

0217- 

3E 

+ »BYTE 




0218"' 

3D 

+ ..IFB C-' = -'3, I. 

BYTE 

OD t . BYTE •- = -'] 


0219"' 

04 

+ BYTE 

4 



021 A- 

IB 

+ BYTE 

CP.GE 

1 


02 IB"' 

00 

„ BYTE 

0 





END 
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AASN 005F 
BACKGR 65CC 
CAT 0000504 X 

CMP 0119'' 

CNTRLU 0015 
CP AREN 01D7-" I 
CPREF 691C 


AND 01A1" I 

BLANK 0020 
CHARSL 65DD 
CNTRL OOOC 
CIMTRLZ 65E4 
CPLFLG 6540 
CP„AND 001C 


ARGEND 6252 
BOTRAM 6000 
CHKTF 0193-' 
CNTRLC 65CD 
CONVAB 0000s05 X 
CPLIN 681C 
CP.ARG 0001 


ARGSTK 60CC 
BOTTOM 64A9 
CLEARS 60CA 
CNTRLO 65D9 
GONVB 0000506 X 
CPLTMP 672C 
CP.ASS 0003 
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„INSERT AsS„ASM 


REMARK / 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© "WHEN 

© 

© 

© 


# 

M- # * 
•SHHS- 

* 

* 

* 

■» 


YOU CARE ENOUGH TO PROGRAM 
THE VERY BEST" 

ZGRASS V3.OOOOOOOO 


©BY JAY FENTON, NOLA DONATO, AND TOM DEFANTI 
© (C) 1.978 


© 

©/ 

.INSERT As MAC.ASM 


© 

„INSERT A s NCUEQU.ASM 
„INSERT As CPLEQU„ASM 
.INSERT As ZRAM.ASM 
.LINK 

„IDENT EVAL 
. PREL 
? + 

5 INTERNALS 

n ^ 

7 

.INTERN CONVERT 
.INTERN EVAL 
„INTERN EVALARG 
„INTERN EVALC 
.INTERN GETOPND 
.INTERN GETVAR 
.INTERN POPOPND 
.INTERN PSHOPND 
.INTERN PUTOPND 
.INTERN SRCHOPR 
" + 


? CONVERT VALUE 
3 SAME AS EVALX 
SEVALUATE TO A VALUE 
? COMPILE EX PRESSION 
5 FETCH OPERAND 
5 GET VARIABLE 
3 POP OPERAND 
5 PUSH OPERAND 
5 SAVE OPERAND 
5 FIND OPERATOR IN TABLE 


5 EXTERNALS 


.EXTERN CARTYP 
.EXTERN CONVI 
.EXTERN CPAREN 
.EXTERN DECSIY 
.EXTERN DONCU 
.EXTERN DOPTAB 
.EXTERN ERRPGM 
.EXTERN EVLCPL 
.EXTERN FNDSPG 


3 FIND CHARACTER TYPE 
5 INTERNAL CONVERT ROUTINE 
3 CLOSE PAREN OPERATOR 
5 DEC IY BY 3 
5DO NCU OPERATION 
3DOUBLE CHAR OPERATORS 
3 ERROR TRAP 

3 EVALUATE COMPILED CODE 
3 PARSE SPECIAL VAR 




PAGE 
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EVAL - EVAL - ARITHMETIC EXPRESSION EVALUATOR 


.EXTERN 

FPIJSH 

3PUSH FLT ONTO NCU STACK 

.EXTERN 

FREE 

5 FREE MEMORY 

.EXTERN 

FUNCTION 

5 GENERATE FUNCTION CALL 

.EXTERN 

GENCOD 

5 GENERATE 1 BYTE OF CODE 

.EXTERN 

GETNUM 

5 PARSE FLOATING MUM 

.EXTERN 

GETSTR 

SPARSE LITERAL STRING 

.EXTERN 

GETSUB 

? GET OPERATOR SUB 

.EXTERN 

GETVAL 

5 GET VALUE.OF NAME 

.EXTERN 

1NC5.TY 

S BUMP IY BY 3 

.EXTERN 

I PUSH 

3 PUSH DE ON NCU STACK 

.EXTERN 

IYNCU 

3 IY STACK ~~> NCU 

.EXTERN 

NAMGET 

SLOOK UP A NAME 

.EXTERN 

NAMBL.D 

3 CREATE A NAME 

.EXTERN 

NAMSET 

SPARSE A NAME 

.EXTERN 

NCUIY 

5NCU ~> IY STACK 

.EXTERN 

OPAREN 

3 OPEN PAREN OPERATOR 

„EXTERN 

OPUSH 

3 PUSH OPERAND 

.EXTERN 

SOPTAB 

5 SINGLE CHAR OPERATORS 

.EXTERN 

. +4.4.4. 

UOPTAB 

3 UNARY OPERATORS 


5 EVALC 

5 PARSES ZGRASS EXPRESSIONS AND PRODUCES ••'CODE-’ TO 

3 EVALUATE THEM 

#- 

* 

3 NEEDS s 

3 HL ~> 1ST CHAR OF ASCII EXPRESSION 
5 FONT = FLAG TELLING WHETHER THIS IS A 
3 RECURSIVE CALL OR NOT. IF PCNT=0, THIS IS 

5 THE FIRST ENTRY AND THE OPERATOR STACK IS SET UP 


OTHERWISE, IT IS ASSUMED TO BE A RECURSIVE CALL 
AND STACK IS NOT SET 
IY ~> NEXT BYTE IN CODE AREA 


5 RETURNSs 

5 HL -> AFTER LAST CHAR OF EXPRESSION 
3 IY -> AFTER TERMINATOR IN CODE AREA 


0001-’ EVALC 

0001- DDES 
0003-' D5 
0004-' C5 

3 + 


0005-' 3A 655E 

0008-' B7 + 

0009 -' F5 

000A'" CC 0189-- 


PUSH X 

PUSH D 

PUSH B 

INITIALIZATION 
CHECK ENTRY FLAG 
GET STACK POINTERS SET UP 
PUSH INITIAL PAREN 

LDA PCNT 

TST A 

ORA All 

PUSH PSW 

Cl SETSTK 


3 CHECK PAREN COUNT 
3IF ZERO, FIRST ENTRY C 

5 SAVE ON STACK 
5 SET UP STACK AREA 
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EVAL 

• EVAL -- ARITHMETIC EXPRESSION 

EVALUATOR 




CLR 

A 

3 CLEAR PAREN COUNT II 

GOOD'' 

AF 

+ „IFN A 

-A, C MVI 

A ,0111 



XRA All 



DOGE" 

32 655E 

STA 

PCNT 


00 1 1 ”* 

11 0000s1C 

LX I 

D»OPAREN 

3 DE -> OPEN PAREN ENTRY 



MVD 

X 3 D 

5IX -> 0.P„ TABLE ENTC 

GO 14- 

D5 

+.IFIDN CXI CXI 

, C PUSH 

D 

GO 15 

DDE 1 

+ POP 

X 




Hh :i 



0017" 

1811 

JMPR 

»EF'AR 

3 SIMULATE ( 



n -r 

3 POSSIBLE UMAR OPERATOR MAY PRECEDE OPERAND 



? IF CURRENT CHAR IS DELIM CAN 

BE ( ) OR UNARY OP 

0019" 


7 

„„EVTOPs 



0019" 

CD 0000 >“04 

CALL 

CARTYP 

3 CHECK CURRENT CHAR 

001C"' 

2029 

JRNZ 

„ EFST 

3 NOT DELIM, 1ST OPND 

00 IE" 

CD 022D-" 

CALL 

IJNOPR 

5 UNARY OPERATOR? 

0021 •" 

3824 

■JRC 

. EFST 

3 NO, 1ST OPERAND 



7 -r 

3 CHECK FOR OPEN F’AREN ( 




5 PCNT = PAREh 

COUNTi IS BUMPED 

EVERY TIME AN 



? OPEN PAREN S 

EEN-. DECD EVERY 

TIME CLOSE FOUND 



3 DEC PAREN COUNT AMD PUSH ( ON 

OPERATOR STACK 



? AND BACK TO 

u 

THE TOP AGAIN 


0023 

DD7E00 

'} 

MOV 

A , 0 „ CHAR C X > 

5 CHECK IF CURRENT OP 

0026 

FE28 

CPI 

-" ( •" 

3IS AN OPEN PAREN 

0028 ■" 

200C 

JRNZ 

„ „ECLOS 

5 NO? TRY CLOSE 

002 A"' 

3A 655E 

..EPARs LDA 

PCNT 

3 BUMP PAREN COUNT 

002D.'" 

3C 

I NR 

A 


002E-" 

32 655E 

STA 

PCNT 


0031 " 

CD 012B-" 

CALL 

F'SHOPR 

3 PUSH THE PAREN 

0034 ■" 

18E3 

JMPR 

»„ EVTOP 

5 BACK TO TOP 



7 ~ 

3 CHECK FOR CLOSE PAREN ) 




3 ALSO COME HERE WHEN END DELIMITER FOUND 



5 THE LINE PTR 

IS BACKED UP TO 

POINT AT THE 



5 CLOSE PAREN 

OR DELIMITER FOR 

LATER EXAMINATION 

0036 " 

FE29 

. « ECLOSs CPI 

, / ) •** 

3 CLOSE PAREN 

0038 •" 

2003 

JRNZ 

. ,, EUN 

3 UNARY OP THEN 

003A •" 

2B 

..EDLMs DCX 

H 

3 BACK UP PTR 

003B'" 

184B 

JMPR 

»„ ECLX 

3 PROCESS IT 


•! 4 * 

5 A UNARY OPERATOR WAS FOUND 

5 A FAKE OPERAND CO) IS PUSHED ON THE OPERAND 
5 STACK AND THE OPERATOR IS CHECKED 


003D" 

11 0000 

•i ■ , y " c v 

„ ..EUN: LXI 

D, 0 

3 PUSH A 0 

.0040 **' 

3E02 

MVI 

A, $NULL 

5 TYPE IS 0 

0.042*" 

CD 0000sID 

CALL 

OPUSH 

3 GENERATE 

0045 

1815 

JMPR 

».EPREC 

5 PARSE 2ND 



7 ... 

3 ACTUAL OPERAND PARSED HERE 
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EVAL - EVAL - ARITHMETIC EXPRESSION EVALUATOR 


5 IT IS PUSHED ON THE OPERAND STACK AND AN ATTEMPT 
3 IS MADE TO GET A BINARY OPERATOR. IF THERE IS NO 




3 OPERATOR THE 

EXPRESSION 

IS ENDED AND WE EXIT 



3 OTHERWISE THE OPERATOR I 

S CHECKED AGAINST STAC 

0047" 

CD 019D-' 

7 

.„EFST s CALL 

POPND 

5 GET AN OPERAND 

004A •" 

3803 

JRC 

. . EOP 

3 FUNCTION CALL 

004C •" 

CD 0000sID 

i CALL 

OPUSH 

3 GENERATE A PUSH 

004F •“ 

CD 01E3 •" 

.„EOP s CALL 

GETOPR 

3 GET OPERATOR 

0052"' 

3008 

■JRNC 

..EPREG 

3 NO? EXIT THEN 

0054 

11 0000s 06 

LX I 

D,CPAREN 

3 SIMULATE A 



MVD 

X j D 

5 CLOSE PARENI 

0057 ■" 

D5 

+ .IFIDN CXII C XI! 

, [ PU 

!SH D 

0058 •- 

DDE 1 

+ POP 

+ 3 

JMF'R 

U J.. 

X 


005A 

182C 

..ECLX 

5 FOR END DELIM 



7 *+* 

5 OPERAND HAS 

BEEN PUSHED 

ONTO OPERAND 


5 STACK. HERE WE DETERMINE WHETHER OR NOT TO PUSH 
3 THE OPERATOR. THE STACK IS EVALUATED UNTIL THE 
5 PRECEDENCE OF THE CURRENT OPERATOR IS GREATER 
3 THAN THE PREDECENCE OF THE OPERATOR NN THE TOP 
3 OF THE STACK. THEN THE CURRENT OPERATOR IS PUSHED 
3 AND WE GO TO THE TOP TO PARSE ANOTHER OPERAND 


005C "’ 

CD 016C- 

..EPRECs CALL 

FETOPR 5 GET TOP OPERATOR 

0G5F"' 

78 


MOV 

A,B 3 A = PRECEDENCE OF TOP 

0060 "* 

DDBE02 


CMP 

O.PREC(X) 3 COMPARE WITH CURRENT 

0063 "’ 

F2 006B 


UP 

. . EPOP 5 LESS? POP EVAL 

0066"* 

CD 012B •" 


CALL 

PSHOPR 5 PUSH & CONTINUE 

0069 "* 

18AE 


■JMPR 

„.EVTOP 3 BACK TO TOP 



j T 

3 IX 

-> CURRENT 

OPERATOR ENTRY 



3 HERE WE EVALUATE THE 2 OPERANDS ON THE TOP OF THE 

3 STACK WITH THE CURRENT OPERATOR 



3 IF 

IT WAS NOT 

A CLOSE PAREN OR DELIMITER WE LOOP 



5 TO 

SEE IF THE 

OPERATOR CAN BE PUSHED NOW THAT 



3 we: 

HAVE EVALUATED 

006B "* 

DDES 

•j ~ 

..EPOPs PUSH 

X 5 SAVE OUR X 

006B 

CD 014A •' 


L-ALL 

POPOPR 5 POP OPERATOR 

0070 "* 

3A 6540 


LDA 

CPLFLG 3 IN COMPILE MODE? 




TST 

AC 

0073"* 

B7 


ORA 

All 

0074"* 

E5 


PUSH 

H 

0075"’ 

DD7E03 


MOV 

A,0„SUB(X) 3 A=OPERATOR TOKEN 

0078 "* 

C4 0000s10 


CNZ 

GENCOD 3 GENER ATE THE CODE 

007B "* 

CC 0000s13 


cz 

GETSUB 3 ELSE DO IT 

007E"* 

El 


POP 

H 

007F "* 

DDE1 


POP 

X 

0081 

DD7E00 


MOV 

A i 0.CHAR CX) “A = OPERATOR 

0084"’ 

FE29 


CPI 

■- ) 3 CLOSE PAREN? 

0086 "* 

20 D 4 


JRNZ 

..EPREC 3 DONT LOOP THEN 


M „L, 

‘1 " ' ' 

5 IF THE OPERATOR IS A CLOSE PAREN OR DELIMITER 
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EVAL - EVAL - ARITHMETIC EXPRESSION EVALUATOR 




5 WE CONTINUE 

POPPING 1 

JNTIL AN OPEN PAREN IS FOUND 



3 THEN 

THE PAREM COUNT 

IS DECREMENTED, IF IT IS 0, 



5 WE C 

AN EXIT 

. IF NOT, 

AND THE CURRENT CHAR IS 



? NOT 

AN OPEN 

PAREM WE 

KEEP EVALUATING, IT IS 



5 THE 

END DEL 

IMITER 


0088 

CD 016G *** 

..ECLX 

s CALL 

FETOPR 

? GET TOP OPER 

008B 

FF?R 


CPI 

- (•- 

;OPEN? NO, EVAL AGAI 

008D •" 

20DC 


■JRNZ 

. „ EPOP 


008F •*’ 

DDES 


PUSH 

X 

?SAVE CURRENT ONE 

0091 

CD 014-A 


CALL 

POPOPR 

8 POP THE PAREN 

0094 

DDE1 


POP 

X 


0096 

3A 655E 


LDA 

PCNT 

3 DEC PAREN COUNT 

0099 *’* 

3D 


DCR 

A 


009A 

32 655E 


STA 

PCNT 


009D-" 

2808 


JRZ 

..EVEX 

30? EXIT THEM 

009F 

7E 


MOV 

A, M 

3 A = CURRENT CH AR 

OOAO •" 

FE29 


CPI 

•-) •- 

3 TRULY A CLOSE? 

00 A2" 

20E4 


JRNZ 

. . ECLX 

3 END DELIM? EVAL ALL 

00A4 

23 


I NX 

H 

3 HL -> AFTER PAREN 

00A5 

18A8 

5 + 

JMPR 

. . EOP 

5 ELSE CONTINUE PARSE 



5 EVAL 

n. ^ 

EXIT P 

01 NT 


OOA7-’ 

FI 

, 7 

..EVEX 

s POP 

PSW 

3 A = FORMER PCNT 

00A8' 

32 655E 


STA 

PCNT 

5 RESTORE IT 

OOAB-" 

Cl 


POP 

B 


OOAC-- 

D1 


POP 

D 


00 AD •" 

DDE 1 


POP 

X 


GOAF"' 

3A 6540 


LDA 

CPLFLG 

3 IN COMPILE MODE? 




TST 

ai: 


00B2 ■" 

B7 


ORA 

A3 


00B3 

C8 


RZ 


3 NO? RETURN 




CLR 

A 

3 TERMINATOR! 

00B4-" 

AF 

+.IFN A 


-A, i: 

MVI A , 03 r. 



XRA 

A3 3 



00B5 

C3 0000s10 


JMP 

GENCOD 



n 

7 

5 EVAL, EVALARC 

5 EVALUATE ARITHMETIC EXPRESSIONS 

V 

5 ENTRIES: 

3 EVALARG - RETURNS ANY VALUE, WILL NOT RETURN 
5 A NAME 

3 EVAL - RETURNS THE TYPE OF EXPRESSION GIVEN 
5 A a TYPE OF THING WANTED. IN ADDITION TO 

? THE NORMAL TYPES, 2 ADDITIONAL ONES ARE 

5 PROVIDED: 

3 $ANYVAL - ANY VALUE 

3 SANYNAM - ANY NAME (ASSIGNABLE THING) 

» 

*? 

3 NEEDSs 

5 HL -Y> 1ST CHAR OF ASCII EXPRESSION 
§ IY ~> STACK AREA 
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EVAL ~ EVAL - ARITHMETIC: EXPRESSION EVALUATOR 
EVAL, EVALARG - ENTRIES FOR EVAL 


5 PONT AS FOR EVALC 

tt 

1 

3 RETURNSs 

3 IY -> VALUE OF THING RETURNED 
5 HL -> AFTER LAST BYTE OF EXPRESSION PARSED 
5 BC DESTROYED 
5 

; CALLSs 

3 EVALC ~ EVALUATE EXPRESSION 




3 CONVERT - 

tt 

7 

CONVERT IF 

NECESSARY 

00B8 


EVALARGs 



00B8 •" 

3EFE 

MV1 

At$ANYVAL 

3 ANY VALUE 

DOB A'" 

D5 

EVAL.! PUSH 

D 


00 BB 

F5 

PUSH 

PSW 


ODBC 

CD 0001-' 

CALL 

EVALC 

3 EVALUATE IT 

UOBh '* 

Cl 

POP 

B 

3 B=TYPE TO CONVERT 

00 CQ 

CD 00..C5 

CALL 

CONVERT 

3 CONVERT IF NEEDED 

00C3 

Di 

POP 

D 


00C4 •“ 

C-9 

RET 




5 "1“ Hh ~i~ H' 


5 CONVERT 

5 CONVERTS THE OPERAND ON THE TOP OF THE IY STACK 
3 TO THE GIVEN TYPE (WILL HANDLE NAMES TOO) 

u 

3 NEEDS5 

3 B = TYPE TO CONVERT TO 
3 IY -> VALUE OF THING TO CONVERT 

a 

7 

3 RETURNSs 

3 IY -> RESULTING VALUE AFTER CONVERSION 

7 

3 CALL:-*" 

3 CONVI - CONVERT VALUE 
3 ANYNAM ~ CONVERT NAME 


00 C5 

FD7E00 

CONVERT!MOV 

A 7 E„TYP(Y) 

3A=TYPE WE HAVE 

00C8 

B8 ' 

CMP 

B 

3 THE SAME? 

■0.0C9 V 

C8 

RZ 


3 EXI T THEN 

OOCA" 

78 

MOV 

A 7 B 

5 A=TYPE WE WANT 

OOCB-' 

FEFC 

CPI 

$ANYNAM 

3 WANT A NAME? 

OOCD •" 

CC 00D7" 

CZ 

ANYNAM 

3 CHECK IT OUT 

OODO 

C8 

RZ 


3 ZERO? RETURN 

00D1 " 

E5 

PUSH 

H 


00D2 

CD 0000!05 

CALL 

CON VI 

5 CONVERT THEN 

00D5-' 

El ■ 

POP 

H 

5 RESTORE PTR 

00D6 *" 

C9 

RET 




3 ++++ 


5 ANYNAM 

3 INTERNAL ROUTINE FOR EVAL WHICH CHECKS THE 
3 TYPE GIVEN AND SETS THE 2 BIT IF IT IS A 





TOL Z80 CP/M DISK ASSEMBLER VERSION 2.21 

EVAL - EVAL ~ ARITHMETIC EXPRESSION EVALUATOR 

EVAL, EVALARG - ENTRIES FOR EVAL 


5 NAME (OTHERWISE ERROR) 
*! 

? NEEDS5 

? A = TYPE TO CHECK 


“ 

5 RETURNSs 




? SET' 

S Z BIT 

IF TYPE 

IS ONE OF THE FOLLOWING! 



a 

7 

* 

TADDRI, 

$ADDRF i 

$ADDRS, $NAME 

00D7 

FEOA 

w *~~*~* —— 

ANYNAMx 

CPI 

$NAME 

? NAME? 

00D9 •" 

C8 


RZ 



OODA •" 

FE05 


CPI 

$ADORI 

5 INTEGER A.DDR? 

OODC-' 

C8 


RZ 



OODD •" 

FE07 


CPI 

$ADDRF 

5 FLOATING ADDR? 

OODF •" 

hr 


RZ 



OOEO •" 

FE09 


CPI 

$ADDRS 

5 STRING ADDR? 

00E2- 

C8 


RZ 






ERROR 

ER. ASM I! 


00E3 

CD OOOOsOA 

4* 

CALL ERRPGM 


00E6 

15 

4* 

.BYTE ER..ASN 




4- 3 





“ H—l-H—I- 

tt 

? GETOPND 

5 FETCH OPERAND FROM IY STACK 

7 

5 RETURNS:: 

5 A = TYPE OF OPERAND 
5 DE = OPERAND FETCHED 

? TOS OF NCU STACK GETS OPERAND IF FLOATING 
5 ERRORS! 

5 ER..STK - STACK UNDERFLOW 


5 CALLS! 

5 IYNCU -- GET FLOATING OPERAND 


00E7 •" 


GETOPND! 




00 E 7 ' 

FD7E00 

MOV 

A,E„TYPCY> 

3 A=TYPE 

OOE A 

FE06 

CPI 

$FVAL 

5FLOATING? 

00 EC •" 

CA 0000!17 

JZ 

IYNCU 

? GET 

ONTO NCU 

OO.EF' 

FEOO 

CPI 

SDVAL 

5 DOUBLE? 

OOF 1 

CA OOOOs17 

JZ 

IYNCU 

? GET 

ONTO NCU 

OOF4 

FEFF 

CPI 

-1 

” END 

OF STACK? 



ZERROR ER.STKi: 


y 

00F6*' 

2004 

4* JRMZ 

..0001 



OOFS*’ 

CD 0000 ! OA 

+ CALL 

ERRPGM 



OOFB ** 

04 

+ .BYTE 

ER.STK 



QGFC' 


+ . .0001! I! 




OOFC' 

. FD5E01 

MOV 

E, E. LVAL(Y) 

5 GET 

IN DE 

■OOFF' 

FD5602 

MOV 

D,E.HVAL(Y) 



0102' 

C9 

RET 
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TDL Z80.CP/M DISK ASSEMBLER VERSION 2.21 

EVAL ~ EVAL - ARITHMETIC EXPRESSION EVALUATOR 

GET, PUT OPERAND ROUTINES 


? PUTOPND 

3 STORE OPERAND ON IY STACK 

SI 

5 NEEDSs 

3 A = TYPE OF OPERAND 
5 DE = OPERAND TO STORE 

5 TOS OF NCU STACK HAS OPERAND IF FLOATING 

u 

7 

3 CALLSs 

5 NCUIY - GET FLOAT FROM NCU 


0103-' 


PUTOPNDs 



0103-' 

FD7700 

MOV 

E.TYP(Y),A 


0106" 

FE06 

CPI 

$FVAL 

3 FLOATING? 

0108-' 

CA 0000sIB 

JZ 

NCUIY 

1 GET FROM NCU 

01 OB" 

FEOO 

CPI 

fDVAL 

3 DOUBLE? 

010D" 

CA 0000sIB 

JZ 

NCUIY 

3 GET ROM NCU 

0110" 

FD7301 

MOV 

E.LVAL < Y),E 

3 SAVE DE 

0113" 

FD7202 

MOV 

E„HVAL(Y) , D 


011 &-■ 

FD3A0300 

MV I 

E„VAL+2(Y),0 


Oil A" 

FD360400 

MV I 

E.. V A L+3 (Y ) , 0 


01 IE" 

C9 

RET . 





■; +++-!- 

5 PSHOPND 

5 PUSHES ONTO 

THE OPERAND STACK 




5 NEEDSs 
? A = TYPE 

OF OPERANE 




? DE = OPERAND TO PUSH 




3 TOS OF NC 

U STACK HAS OPERAND 

IF FLOATING 



? THESE ARE 

» 

3 CALLSS 

NOT DESTROYED BY P 

SHOPND 



3 DECSIY “ 

POINT TO NEXT SPOT 




3 PUTOPND - 

» 

? . 

STORE ON IY STACK 


01 IF" 


u .. 

7 

PSHOPNDs 



01 IF" 

CD 0000s15 

CALL 

INC5IY 

5IY—>NEXT SPOT 

0122 " 

C3 0103" 

JMP 

PUTOPND 

3 STORE IT 


; ++++ 


5 POPOPND 

3 POPS OFF THE OPERAND STACK 

it 

7 . • • " - 

3 RETURNS5 

5 A = TYPE OF OPERAND 
5 BE;:® OPERAND POPPED 

5 TOS OF NCU STACK GETS OPERAND IF FLOATING 

7 

5 ERRORSs 

3 ER.STK - TRIED TO POP TOO MANY 
3 (THIS OCCURS IF THE MARKER IS FOUND) 
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TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 
EVAL - EVAL ~ ARITHMETIC EXPRESSION EVALUATOR 
PUSH 7 POP OPERAND ROUTINES 


DECSIY - POINT TO PREVIOUS SPOT 
GETOPND - FETCH OPERAND 


0125"' popoPNDs 

0125 -' CD 00E7-: CALL GETOPND 5 GET THE OPERAND 

0128 -' C3 00005 07 JMP DECS IY 3 IY->PREVIOUS ENTRY 

? —l-H- 

W 

7 

5 PSHOPR 

3 PUSHES ONTO THE OPERATOR STACK 

« 

7 

? NEEDSs 

3 IX = OERATOR OFFSET 0 PUSH 
? 

3 MAINTAINS5 

? OPRSP - OPERATOR STACK POINTER 
5 OPRSZ -- SIZE OF OPERATOR STACK 

' n 

7 . 

; ERRORS3 

3 ER.IY - OUT OF STACK SPACE 


012B-' 

E5 

PSHOPRs PUSH 

H 



012C" 

D5 

PUSH 

D 



012D-' 

3A 655D 

LDA 

OPRSZ 

3 A = £ 

MZE OF STACK 

0130-' 

3D 

DCR 

A 

3 IF 0, 

NO MORE SPACE 



ZERROR 

ER„IYE 



0131-' 

2004 

+ JRNZ „ 

„ 0002 



0133-' 

CD OOOOsOA 

+ CALL ERRPGM 



0136-' 

43 

+ ..BYTE 

ER. IY 



0137-' 


+ . « 0002 s 1 




0137-' 

32 655D 

STA 

OPRSZ 

3 SAVE 

NEW SIZE 

013 A •" 

2A 655B 

LHL.D 

OPRSP 

3 HL. -I: 

NEXT SPOT 



MVD 

D, X 

3 DE * 

STUFF TO STORE! 

013D" 

DDES 

+ . IFIDN r.x 

:i cxi. 

L 

PUSH X 

0.1.3F -' 

D1 

_l_ PUP 

+ 1 

D 



0140" 

72 

MOV 

MVD 

3 SAVE 

DE ON STACK 

0141-' 


I NX 

H 



0142-' 

73 

MOV 

M,E 



0143-' 


■ I NX 

H 



0144"' 

22 655B 

SHLD 

OPRSP 

3 SAVE 

NEW SP 

0147-' 

D1 

POP 

D 



0148-' 

El 

POP 

H 



0149 •" 

C9 

RET 






w 

7 

? POPOPE 






“ POPS OFF THE 

u 

7 

3 RETURNSs 

OPERATOR STACK 




IX = OPERATOR OFFSET POPPED 










TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 

EVAL - EVAL - ARITHMETIC EXPRESSION EVALUATOR 

PUSH, POP OPERATOR ROUTINES 


PAGE 10 


5 MAINTAINS!! 

3 OPRSP - OPERATOR STACK POINTER 
5 OPRSZ - SIZE OF OPERATOR STACK 
? 

5 ERRORS! 




3 ER.STK - 

TRIED TO POP TOO 

MANY 



3 (THIS 

u 

V ' 

> OCCURS WHEN MARKER FOUND) 

014 A •" 

E5 

5 ““"*** **“ 

POPOPRs PUSH 

H 


014B-: 

D5 

PUSH 

D 


014C •" 

3A 655D 

LDA 

OPRSZ 

3A=SIZE OF STACK 

0 1 4F •" 

3C 

I NR 

A 

3 BUMP IT 

0150 

32 655D 

STA 

OPRSZ 

5 AND SAVE IT 

0153 - 

2A 655B 

LHLD 

OPRSP 

3 HL“>TH1NG TO POP 

0156 

2B 

DCX 

H 


0157-' 

5E 

MOV 

E,M 

5 POP I NTO DE 

0158"' 

2 B 

DCX 

H 


0159" 

22 655B 

SHLD 

OPRSP 

5 SAVE NEW SP 

015C- 

56 

MOV 

D, M 


015D "' 

3EFF 

MV I 

A, -1 

3 CHECK MARKER 

015F-" 

BA 

CMP 

D 

3 AGAINST HI PART 



ZERROR ER.STK 

5 IF -1, ERRORII 

0160" 

2004 

+ JRNZ 

„.0003 


0162"' 

CD 0000 s 0A 

+ CALL 

ERRPGM 


0165- 

04 

+ .BYTE ER.STK 


0166 •" 


+ . . 0003! 1 





MVD 

X, D 

3 RETURN IN XII 

0166"' 

D5 

+ .IFIDN [X"J C X 3, II PUSH 

D 

0167"' 

DDE 1 

+ POP 

“I 

X 


0169"' 

D1 

I „j 

POP 

D 


016 A " 

El 

POP 

H 


016B-" 

C9 

RET 





; ++++ 





n 

3 FETOPR 





3 GETS THE CURRENT OPERATOR FROM OPERATOR STACK 

w ■ 



3 RETURNS! 





5 A = LO-ORDER CHARACTER OF 

OPERATOR 



3 B = PRECEDENCE OF OPERATOR 



5 C = TYPE 

* 

OF OPERATOR 




5 ERRORS ! 





3 ER.STK ~ 

ALREADY TRIED TO 

POP TOO MANY 



5 (OCCURS WHEN MARKER FOUND) 

It 

7 

0 16C "' 

D5 

7 

FETOPR! PUSH 

D 


016D"' 

DDES 

PUSH 

X 


0 1 6F "' 

DD2A 655B 

LI XD 

OPRSP 

3 GET STACK PTR 

0173'" 

DD5EFF 

MOV 

E , — 1 ( X ) 

3 INTO DE! 

0176- 

DD56FE 

MOV 

D , “2(X) 
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EVAL. - EVAL - ARITHMETIC: EXPRESSION EVALUATOR 

PUSH, POP OPERATOR ROUTINES 


MVD X,D SIX -> OPERATOR ENTRY! 


0179-* 

D5 

+.IFIDN CXT CX] 

1, C PUS 

H D 

017 A 

DDE1 

+ POP 

+:i 

X 


017C" 

DD7E00 

MOV 

A 5 0.CHAR C X) 

5 CHARACTER IN A 

017F 

DO A6U2 

MOV 

B, 0.PREC(X) 

?PRECEDENCE IN B 

0182 

DD4E03 

MOV 

C,0 . TYP(X) 

5 TYPE IN C 

0185**’ 

DDE 1 

POP 

X 

5 RESTORE IX 

0187-' 

0188-' 

D1 

C9 

POP D 

RET 

* 

U ' 

7 

? SETSTK 

S SETS UP THE OPERATOR STAC 
** 

? RETURNS; 

? OPRSP - OPERATOR STACK 

OPRSZ - OPERATOR STACK 

n 

7 

7 

K 

POINTER 

SIZE (BYTES) 

0189" 

E5 

SETSTK« PUSH 

H 


018 A •" 

21 6547 

LX I 

H,OPRSTK 

? OPERATOR STACK 

0180' 

■‘Zjjrpp 

MV I 

A, -1 

?MARKER AS FIRST 

018F-" 

77 

MOV 

M, A 

?ELEMENT OF STAG 

0190"' 


I NX 

H 


0191 •" 

77 

MOV 

Mr A 


0192-' 


I NX 

H 


0193-' 

22 655B 

SHLD 

OPRSP 


0196" 

3E0A 

MV I 

ft, OPRL/2 

5 LENGTH OF STACK 

0198" 

32 655D 

STA 

OPRSZ 


019B" 

019C" 

El 

C9 

POP 

RET 

H 



« —f~ 


5 POPND 

5 PARSES AN OPERAND AND RETURNS ITS TYPE AND VALUE 

7 ' '■ 

? NEEDSs 

S HL -> OPERAND 

7 

5 RETURNSs 

5 A = TYPE OF OPERAND 

5 HL ~> AFTER OPERAND 

? DE = VALUE OF OPERAND 
5 OR POINTER TO NAME BLOCK 
5 

? ERRORS2 

5 ER.tiPN - OPERAND EXPECTED BUT NONE FOUND 

** 

7 

" CALLS s 

5 CARTYP - CHECK 1ST CHAR 
5 FNDSPC - GET SPECIAL VAR 
S GETVAR - GET VARIABLE NAME 
5 GETNUM - GET NUMBER VALUE 
5 GETSTR - GET LITERAL STRING 
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EVAL ~ EVAL - ARITHMETIC EXPRESSION EVALUATOR 
POPND ~ PARSE OPERAND ROUTINE 


019D •" 



POPND s 




0 1 9D ■" 

CD 

0000 sOC 


L* A L L. 

FNDSF'C 

5 CHECK SPECIALS FIRST 

01 AO-' 

DO 



RNC 


5 RETURN IF SO 

01 A1 

CD 

0000s 04 


CALL 

CARTYP 

3 CHECK 1ST CHAR 

01A4 •" 

3807 


JRC 

. . PNUM 

5 DIGIT? NUMBER 

01 A6" 

C2 

01B5"' 


JNZ 

GETVAR 

$ VARIABLE? 

01 A9 

CD 

0000 s12 


CALL 

GETSTR 

3 STRING? 

01 AC" 

DO 



RNC 


5 YES? RETURN 

01 AD"' 

CD 

0000 s11 

„ PNUMs 

CALL 

GETNUM 

3 TRY NUMBER 

01 BO" 

DO 



RNC 


3 YES? RETURN 





ERROR 

ER.OPN 

3 OPERAND EXPECTED HERE L 

01 B1 •" 

CD 

0000 sOA 

4- 

CALL ! 

ERRPGM 


01 B4 

14 


”h 

. BYTE 

ER.OPN 





-Ki 





^ -f-1-1- 

n 

3 GET VAR 

3 PARSES A VARIABLE NAME AND RETURNS POINTER 
3 TO NAME BLOCK 

m 

3 

3 NEEDSs 

3 HL -> VARIABLE NAME (1ST LETTER) 

7 

5 RETURNSs 
5 VARIABLES 

5 A = TYPE NAME <$NAME> 

; HL ■-> AFTER VARIABLE NAME 

3 DE -> TOP OF NAME BLOCK 

5 CARRY BIT CLEAR FOR VARIABLE 

5 FUNCTION CALLS 

3 HL -> AFTER ARGUMENT LIST 

? IY --> AFTER FUNCTION CALL CODE 

5 DE DESTROYED 

5 CARRY BIT SET FOR FUNCTION CALL 

7 

5 CALLSs 

5 NAMSET - PARSE NAME 

5 NAMGET -- LOOK UP NAME 

3 NAMBLD - BUILD NAME IF NOT THERE 
3 FUNCTION - GENERATE FUNCTION CALL 


01B5 


GETVARs 



OIBS"' 

CD 0000 s 1A 

CALL 

NAMSET 

5 PARSE NAME 

01B8*** 

7E 

MOV 

A,M 

5A“CHAR AFTER NAME 

01B9 

FE28 

CPI 

< " 

5PAREN? IS FUNCTION 

01BB V * 

280A 

JRZ 

..GFUN 

5 GENERATE FUNCTION CALL 

01BD x 

FE20 

CPI 


3 BLANK AFTER NAME? 

01BF *“ 

C2 0000«18 

JNZ 

NAMGET 

3 NO, JUST A VAR 

01C2 **' 

CD 0000”OF 

CALL 

FUNCTION 

3 GENERATE FUNCTION 

01C5 

180D . 

JMPR 

» . GF" 

SAND EXIT 


5 + 

5 COME HERE WHEN A FUNCTION NAME IS FOUND 







TDL Z80 CP/M DISK ASSEMBLER VERSION 2.2:1 PAGE 13 

EVAL - EVAL -- ARITHMETIC EXPRESSION EVALUATOR 
GETVAR - PARSE VARIABLE NAME 


5 HL ~> OPEN PAREN AFTER NAME 
5 DE -> NAME BLOCK OF FUNCTION NAME 
? WE LOOK UP NAME AND GENERATE CODE TO EVALUATE 
5 ALL FUNCTION ARGUMENTS 


01C7-' 

CD 0000 5 OF 

n u GFUN's 
ON CALL 

CALL 

FUNCTION 

5 GENERATE 

01C A -' 

~/p 


MOV 

ft) M 

5 CHECK DELIMITER 

01CB-" 

FE29 


CPI 

-') -' 

5 FOUND PAREN 




NZERROR ER.PAR 

5 NO? NEED ONE ! C 

01CD" 

2804 

-h 

JRZ „ 

. 0004 


01CF-' 

CD 0000 5 OA 

+ 

CALL 

ERRPGM 


01 D2 " 

2A 

-h 

. BYTE 

ER.PAR 


01 D3 •" 

01D3 -' 


.0004s 1 

INX 

H 

? HL—> AFTER PAREN 

01D4-" 

37 

„ „ OF s 

STC 


5 SET CARRY 

01D5 •" 

C9 


RET 





5 CHKAZ 
? CHECKS 

7 

5 NEEDS5 

: FOR 

INTEGER VAR NAME 



5 HL ALPHABETIC 

It 

5 RETURNSs 

S CARRY SET - NOT ALPHABETIC 

5 Z BIT SET - A-Z FOLLOWED BY DELIMITER 

" ELSE A-Z FOLLOWED BY ALPHANUMERIC 
'} 

? CALLS s 

5 CARTYP - CHECK TYPE OF CHAR 


01D6" CHKAZs 

01D6CD 00005 04 CALL CARTYP 5 ALPHABETIC 

01D9DS RC ? NO? FAIL THEN 

01 DA"' 37 STC 5 SET FAIL. RC 

01DB-' C8 RZ ? FAIL IF DELIM TOO 

01 DC-' 23 I NX H ? HL->AFTER A-Z 

01DD-' CD 00005 04 CALL CARTYP ? CHECK FOR DELIM 

01 EO2B DCX H 5 RESTORE PTR 

CLC 5 SUCCEED! 

01 El-' B7 + ORA Alt 

01E2-" C9 RET 

; ++++ 


? GETOPR 

§ PARSES OPERATOR AND RETURNS PTR TO EVALUATION 

5 ROUTINE TIN IX) 

»• 

t? ' 

? NEEDS5 
5 HL -> 

? RETURNS5 


OPERATOR (+,- CURRENTLY) 
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EV'AL - EVAL - ARITHMETIC EXPRESSION EVALUATOR 

OPERATOR PARSING ROUTINES 


SUCCEEDS 

ML -> AFTER OPERATOR 
IX -> ROUTINE TO DO THAT OPERATION 
CARRY BIT CLEAR 
FAILS 

CARRY BIT SET 

FAILS IF THE OPERATOR IS NOT VALID 


01E3 "' GETOPRs 


01 E3 •" 

CD 0000 s 04 


CALL 

CARTYP 

3 IS A DELIN? 

01E6 ■' 

2802 


JR Z 

« ■ G1 

3 YES? CONTINUE 

DIES-' 

37 


STC 


3 FAIL 

01 E9 

c? 


RET 



01EA •" 

C5 

. . G1 s 

PUSH 

B 


OlEB-' 

D5 


PUSH 

D 




3 + 

3 HERE 

WE ATTEMPT TO GET A DOUBLE CHARACTER OPERATOR 



3 INTO 

EC. IF 

THE 2ND CHAR IS 

NOT A DELIMITER IT IS 



5 ASSUMED TO 

BE A SINGLE CHARACTER OPERATOR 

01 EC"' 

4E 

T 

MOV 

C,M 

5 C=1ST CHAR 

01 ED"' 

23 


I NX 

H 

3 HL->AFTER 1ST BYTE 

01 EE"' 

CD 0000 s 04 


CALL 

CARTYP 

3 CHECK 2ND CHAR 

01 F1 "' 

2011 


JRNZ 

GSIN 

3 ALPHANUM? SINGLE THEN 

01 F3"' 

46 


MOV 

B,M 

3 BC=DOUBLE CHAR OP 

01F4"' 

11 0000s09 


LX 1 

D, DOPTAB 

5 DE—>DOUBLE OP TABLE 

01F7"' 

CD 0211" 


CALL 

FNDOPR 

3 SEARCH IT 

01 F A"' 

3808 


JRC 

GSIN 

3 NOT FOUND? TRY SINGLE 

01 FC "' 

vO 


I NX 

H 

3 HL-OAFTER OPERATOR 




CLC 


3 SUCCEED L' 

01FD"' 

B7 


ORA 

A3 


01 FE"' 


GEX s 

MVD 

X i D 

3 GET OFFSET IN XC 

01 FE"' 

D5 

+„IFIDN 

cx:i cx 

:i , e: push 

D 

01 FF" 

DDE 1 

4* 

„L. *1 

POP 

X 


0201 "' 

D1 

r* J 

POP 

D 


0202 " 

Cl 


POP 

B 


0203 •" 

C9 


RET 




3 + 

5 HERE WE ATTEMPT TO FIND A SINGLE CHARACTER 
; OPERATOR IN A TABLE. WE KNOW IT IS NOT A DOUBLE 
5 SO IF IT IS NOT A SINGLE WE FAIL RETURN 
3 C = CHARACTER TO CHECK 


0204" 

11 0000SIE 

GSINs LX I 

D,SOPTAB 

3 TRY SINGLE TABL 



3 + 

5 SRCHOPR - 

w ^ 

ENTRY POINT FOR 

UNOF'R 

0207"* 


■ 7 , 

SRCHOPRsCLR 

B 

3 2ND CHAR NULL C 

0207" 

0600 

+.IFN B 

XRA A3 3 

-A?, ?[ MVI 

B 

0209 

CD 0211"' 

CALL 

FNDOPR 

3 SEARCH TABLE 

020C *" 

30F0 

JRNC 

GEX 

3 IF FOUND 3 EXIT 

02 OE*" 

2B 

DCX 

H 

3 RESTORE PTR 


,01E 
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EVAL - EVAL - ARITHMETIC EXPRESSION EVALUATOR 

OPERATOR PARSING ROUTINES 


020F-" 18ED JMPR GEX 5 FAIL EXIT 

; ++++ 

5 

5 FNDOPR 

3 SEARCHES THE GIVEN OPERATOR TABLE FOR A SPECIFIED 
5 OPERATOR AND RETURNS ITS ENTRY OFFSET 

•3 

3 NEEDSs 

3 BC = OPERATOR TO SEARCH FOR (2 CHARS) 

3 B = HI ORDER CHAR (NULL FOR 1 CHAR OPS) 

3 C = LO ORDER CHAR 

3 DE -> TOP OF OPERATOR TABLE TO SEARCH 
3 UOPTAB - UNARY OPERATORS 

3 SOPTAB -SINGLE CHAR BINARY OPERATORS 

3 DOPTAB - DOUBLE CHAR BINARY OPERATORS 
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EA - EA - ANOTHER EVAL. MODULE 


.LINK 


.IDENT EA 
. PEEL 

.INSERT AsS.ASM 
©.REMARK / 


© 

© 

© 

© 

© 

© 

© 

© 


* 

* * * 

ftftftftftftft 

ft 


•ft 

ft 

•ft 


© ft 

© ftftftftftftft 

© 

© "WHEN YOU CARE ENOUGH TO PROGRAM 

© THE VERY BEST" 

© 

© ZGRASS V3.OOOOOOOO 

©BY .JAY FENTON, NOLA DONATO, AND TOM DEFANTI 

© (C) 1978 

© 

©/ 

.INSERT As MAC.ASM 

© 

.INSERT AsZRAM.ASM 
. INSERT As NCUEQU.ASM 

3 + 

3 INTERNALS 


.INTERN ASSIGN 
.INTERN ASSINP 
.INTERN CNVFD 
.INTERN CMVFI 
.INTERIM CNVID 
.INTERN CMVIF 
. INTERIM CVDSTR 
.INTERN CVFSTR 
. INTERIM DONCU 
.INTERN FPOP 
. INTERN FPU.SH 
.INTERN GETMSB 
. INTERIM I GET 
.INTERN IPOP 
.INTERN IPSHO 
.INTERN IPUSH 
.INTERN lYiMCU 
„INTERN NCUIY 
„INTERN PSHF10 
3 + 

5 EXTERNALS 

.EXTERN ALSTR 
.EXTERN CONV 


5 ASSIGNMENT 
3 ENTRY FOR INPUT 
5 CONVERT FLT TO DOUBLE 
3 CONVERT FLT TO INT 
5 CONVERT INT TO DOUBLE 
5 CONVERT INT TO FLT 
3 CONVERT TO STRING 
3 CONVERT FRACTION 
5 PERFORM NCU OPERATION 
3 POP FLT FROM NCU 
5 PUSH FLT ONTO NCU 
3 GET MOST SIGNIF BYTE 
3 GET INTEGER OFF NCU STACK 
3 POP INT OFF NCU STACK 
3 PUSH 0 INT ON NCU STACK 
3 PUSH INT ONTO NCU STACK 
3 IY STACK --> NCU 
5NCU -> IY STACK 
5 PUSH 10. 0 


3 ALLOCATE STRING 
3 CONVERSION 
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EA - EA - ANOTHER EVAL MODULE 


.EXTERN CONVI 
.EXTERN ENDSTR 
.EXTERN ERRPGM 
.EXTERN GETLOC 
.EXTERN GETOPND 
.EXTERN GETVAL 
.EXTERN INCUSE 
.EXTERN POPOPND 
.EXTERN PSHOPND 
.EXTERN PUTOPND 
.EXTERN RMDR 
.EXTERN SDEL 
.EXTERN XCGVAL 
. ++++ 


5 CONVERSION 

5CLEAN UP STRING ALLOC 
3 ERROR 

3 GET LOCAL NAME 
5 GET OPERAND 
5 GET VALUE 
5 BUMP USE COUNT 
3 POP OPERAND 
3 PUSH OPERAND 
5 PUT OPERAND 
5 COMPUTE REMAINDER 
3 DELETE STRING 
5 ASSIGN VALUE 


? ASSIGN 

3 ASSIGNS OPERAND B-'S VALUE TO OPERAND A 
** 

3 NEEDSs 

5 IY->OPERAND B (NAME OR VALUE) 

; OPERAND A (NAME ONLY) 

5 

5 RETURNS! 

3 IY—>OF*ERAND A (NAME) 

3 DESTROYS DE, BC AND HL 

3 ERRORS! 

5 ER.ASN -• CANNOT ASSIGN TO NGN-NAMED THING 

ts 

•J 

S CALLS! ?f ; ” 

5 POPOPND - POP OPERAND 

5 XCGVAL - DELETE OLD VALUE, ASSIGN NEW 
? SDEL - DELETE STRING 

5 CONV - CONVERT OPERAND 

? FPOP - POP OFF NCU STACK 


0001" 
0001"' 

CD 0000 s OB 

ASSIGN! 

CALL 

GETVAL 

5 GET VALUE OF B 

0004 

FD7EFB 


MOV 

A,E»TYP-E.S 

IZ(Y 3 ? A=TYPE OF OPNDA 

0007 

FD66FD 


MOV 

H,E.HVAL-E. 

SIZ(Y) ? HL~>NAME OR ADDR 

OOOA 

FD6EFC 


MOV 

L,E.LVAL-E. 

SIZ(Y) 

0.00 D *" 

CD 0000 s 09 

ASSINP! 

CALL 

GETLOC 

? GET LOCAL NAME 

0010"' 

FEOA 


CPI 

$NAME 

? MUST BE A NAME 

0012"' 

2006 


JRNZ 

..ADDR 

5 TRY SPECIAL VAR 

0014"' 

CD 0000!OD 


CALL 

POPOPND 

5 POP IT OFF 

0017-" 

C3 0000s12 


•JMP 

XCGVAL 

?ASSIGN NEW VAL 

001 A"' 

E5 

„.ADDR5 

PUSH 

H 

5 SAVE ADDR 

00 IB" 

0604 


MV I 

B,$IVAL 

i ASSUME INT 

001D"' 

FE05 


CPI 

$ADDRI 

?INTEGER ADDR 

00 IF"' 

2823 


JRZ 

..AINT 

3 DO ASSIGNMENT 

0021"' 

0606 


MV I 

B,$FVAL 

3 ASSUME FLT 

0023" 

Ffc.07 


CPI 

fADDRF 

3 FLOAT ADDR 

0025 ■" 

*..**■».*■,.**«.* 


JRZ 

..AFLT 


0027"' 

0608 


MV I 

B,$STRADR 

? TRY STRING 
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EA - EA - ANOTHER EVAL MODULE 

ASSIGN ~ ASSIGNMENT ROUTINE 


0029 *■’ 

FE 

D 9 



CPI 

$ADDRS 

3 STRING ADDR 






NZERROR ER.ASN 

3 CANNOT DO ITII 

002B •" 

28 

04 

-j- 


JRZ . 

„ 0001 


002D-* 

CD 

0000“08 

+ 


CALL 

ERRPGM 


0030 •*' 

15 


4* 


. BYTE 

ER.ASN 


0031"' 



4*,, 

.00015 

1 



0031 ■■ 



tt 

„ASTRs 




0031 •" 

5E 




MOV 

E,M 

3 HL—>OLD STRING 

0032 •” 

*.n* 




INX 

hi 


0033 •’* 

56 




MOV 

D, M 


0034 •" 

D5 




PUSH 

D 

3 SAVE OLD STRINC 

0035'" 

CD 

0000 505 



CALL 

CONV 

5 CONVERT TO STR! 

0038 •*’ 

CD 

0000 s OD 



CALL 

POPOPND 

5 POP IT OFF 

003B 

CD 

0000“OC 



CALL 

INCUSE 

5 BUMP USE COUNT 

003E 

El 




POP 

H 

3 HL->OLD STRING 

003F "' 

CD 

0000511 



CALL 

SDEL 

3 DELETE IT 

0042 

18 

06 



■JMPR 

. .AEX 

5 EXIT 

0044 "' 

CD 

00005 05 

tt 

.AINTs 

CALL 

CONV 


0047 

CD 

00005OD 



CALL 

POPOPND 


004A 

El 


tt 

. AEX s 

POP 

H 


004-B •" 

73 




MOV 

M,E 

3 PUT VALUE IN 

004C 

23 




INX 

H 


004D'" 

72 




MOV 

M, D 


004E-" 

C9 




RET 



004F'"' 

CD 

0000 s 05 

it 

„AFLT s 

CALL 

CONV 

3 CONVERT TO FLT 

0052"' 

CD 

0000 s OD 



CALL 

POPOPND 

3 GET FLT VAL 

0055 

El 




POP 

H 

5 HL -> WHERE TO 

0056" 

C3 

0097"' 



.JMP 

PROP 

3 STORE VALUE 




? NCUIY 

5 POPS FLOATING POINT OPERAND OFF NCU STACK 
5 AND STORES ON IY STACK <DOES NOT PUSH) 

3 NEEDSs 




5 IY- 

‘i 

> WHERE 

TO STORE OPERAND 


0059 •“ 

DB3E 

u 

? 

NCUIY5 

IN 

NCUDAT 

3 MOST SIGNIFICAN1 

OObEi ■* 

FD7704 


MOV 

E„VAL+3(Y)v A 

5 BYTE IS STORED 

005E *** 

DB3E 


IN 

NCUDAT 

5 FIRST, E.VAL+3 

0060 *** 

FD7703 


MOV 

E.VAL+2IY),A 


0063" 

DB3E 


IN 

NCUDAT 


0065" 

FD7702 


MOV 

E» VAL+1(Y)iA 


0068*“ 

DB3E 


IN 

NCUDAT 

E.VAL(Y)?A 


006A *“ 

FD7701 


MOV 


006D *■' 

C9 

3 ++++ 

n 

RET 





•i 

3 IYNC 

U 





3 PUSH 

ES FLOATING PO1NT OPERAND 

ONTO NCU STACK 



3 FROM 

IY STAC 

)K {DOES NOT POP) 



5 NEEDSs 

3 IY~>OPERAND TO PUSH 
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EA - EA - ANOTHER EVAL MODULE 

NCU => IY ROUTINES 


006E •" 

FD7E01 

lYNCUs 

MOV 

A,E„VAL(Y) 

5 LEAST SIGNIFICANT 

0071 

D33E 


OUT 

NCUDAT 

3 BYTE IS PUSHED 

0073' 

FD7E02 


MOV 

A >- E. VAL+1 (Y) 

5 FIRST, E.VAL 

0076' 

D33E 


OUT 

NCUDAT 


0078 •' 

FD7E03 


MOV 

A 7 E.VAL+2(Y) 


007B" 

D33E 


OUT 

NCUDAT 


007D •" 

FD7E04 


MOV 

A,E. VAL+SKY) 


0080 ' 

D33E 


OUT 

NCUDAT 


0082 •' 

FD7E00 


MOV 

A7E.TYP(Y> 


0085 •" 

C9 


RET 





7 -JHHH- 






5 GETMS 

B 





? Ub fo 

THE MC 

ST SIGNIFICANT BYTE FROM THE TOP OF 



3 THE NCU STACK AND PUTS IT IN 
$* 

ACCUMULATOR 



9 

. RETURNS5 





3 A = 

MOST 

SIGNIFICANT BYTE OF TOS 



3 (EXPONENT FOR FLOATING NUMBERS) 

u 

7 

0086 •' 

DB3E 

o ... . mn , . fTr 

GETMSBs 

IN 

NCUDAT 

3 GET MSB 

0088 •' 

D33E 


OUT 

NCUDAT 

3 LEAVE ON STACK 




TST 

A 

5 SET SIGN BITSil 

008A •" 

B7 

+ 

ORA 

AD 


008B •' 

C9 


RET 











3 FPUSH 





3 PUSHE 

S A FLOATING POINT NUMBER FROM MEMORY 



1 ONTO 

THE NC 

U STACK. THE LEAST 

SIGNIFICANT 



3 BYTE 

It 

IS ASS 

UMED TO BE AT THE 

LOWEST ADDRESS 



7 

3 NEEDS 

» 





3 HL 

~> FLOATING POINT NUMBER 

TO PUSH 



It 

7 

(LEAS 

T SIG BYTE) 




5 DES 

TROYS 

HL 




• 9 

3 CALLS 

tt 

w 





3 IYNCU ~ PUSH FLT NUMBER 

w 

7 


008C •' 

2B 

tt „ tl _ i„ nu . , tt> . 

FPUSHs 

DCX 

H 

5 FAKE OUT TYPE 

008D'" 

E5 


PUSH 

H 


008E 

FDE3 


XTIY 


3IY->NUMBER TO PUS 

0090 •' 

CD 006E" 


CALL 

IYNCU 

3 PUSH ON NCU STACK 

0093'■ 

FDE3 


XTIY 



0095' 

El 


POP 

H 


0096'" 

C9 


RET 











• *J ■ 

5 FPOP 






5 POPS 

A FLOATING POINT NUMBER 

OFF THE NCU STACK 
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EA - EA - ANOTHER EVAL MODULE 

FLOATING POINT PUSH, POP 


5 INTO MEMORY (LEAST SIGNIFICANT BYTE FIRST) 

w 

*» 

5 NEEDS s 

? HL •-> WHERE TO STORE NUMBER 
? (LEAST SIGNIFICANT BYTE) 

? DESTROYS HL 
S ' 

? CALLS s 

5 NCUIY - POP OFF FLT NUMBER 

n '.. ■ 

7 


0097 y 

2B 

FPOPa 

DCX 

H 

3 FAKE OUT TYPE 

0098 y 

E5 


PUSH 

H 


0099 y 

FDE3 


XTIY 


?IY~>WHERE TO STORE 

009B-' 

CD 0059 •" 


L-ALL 

NCUIY 

5 POP’ OFF NCU STACK 

009E ■- 

FDE3 


xtiy 



OOAO 

El 


POP 

H 


00 A1 •- 

C9 


RET 




; ++++ 


5 PSHFIO 

? PUSHES A FLOATING POINT 10 ONTO THE STACK OF 
5 THE NUC 

tt 

5 DESTROYS DE 

it 

3 

5 CALLSs 

5 IPUSH - PUSHES SINGLE INTEGER 

*» 

00A2" CD 00E2-" PSHFlOs CALL IPSHO S LO ORDER IS 0 

00A5•" 11 04AO LX I D,04A0H 5 HI ORDER 

00AS" C3 00E5- JMP IPUSH 

, 

5 DONCU 

5 DOES A SPECIFIC NCU OPERATION 
5 WILL WAIT FOR COMPLETION 

tt 

5 NEEDS 

? A = WHICH NCU OPERATION 

St 

% 

? RETURNSS 

; TOP OF NCU STACK HAS RESULT, OPERANDS WHICH 
? WERE ON NCU STACK BEFORE OPERATION MAY BE POPPED 


00 A B *** 

D33F 

DONCUs OUT 

NCUCOM 

5 TELL WHICH OPERATION 

00 AD- 

DB3F 

...WAITS IN 

NGUCOM 

? CHECK STATUS 

OOAF-' 

A7 

ANA 

A 


00 B0-" 

FA OOmEi•' 

JM 

..WAIT 

UNTIL SIGN BIT OFF 

00B3 •" 

CB4!- 

BIT N« OFLO,A 

NZERROR ER.OFLOC 

?ARITHMETIC OVERFLOW? 

00B5 

2804 

+ JRZ 

., . 0002 


00B7 ■" 

CD 0000s08 

+ CALL 

. ERRPGM 








TDL Z80 
EA 

DONCU - 


OOBA •' 
OOBB' 
OOBB' 

OOBB' 
OOBF- 
00C2 • 
00C3- 
00C3" 

00C5 • 
00C7" 
OOCA 
OOCB - 
OOCB •' 

OOCB' 
OOCF ■' 
00D2: 
00D3- 
00D3- 
00D5- 
00D7- 
00D9" 
OODA' 
OODC •' 
CODE- 

OODF- 

ODE O' 
OOE1' 


00E2- 
00 EE 5' 
00E6 ' 
OOF 8' 
00E9' 
OOEB- 
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EA - ANOTHER EVAL MODULE 
PERFORM NCU OPERATION 


17 

+ .BYTE 

+.. 0002 s ;i 

ER.OFLO 


CB57 

BIT 

N.OFLO,A 

3 ARITHMETIC UNDERFLOW 


NZERROR ER.UFLOC 


2804 

+ URZ . 

„ 0003 


CD 0000s08 

+ CALL 

ERRPGM 


qo 

V w 

+ .BYTE 

+ „.0003s 3 

ER.UFLO 


CB5F 

BIT 

N« ANU 7 A 

3 ILLEGAL ARGUMENT? 


NZERROR ER.ARGE 


2804 

+ JRZ . 

. 0004 


CD 0000s08 

+ CALL 

ERRPGM 


34 

+ .BYTE 

+ „ . 0004 s3 

ER.ARG 


CB67 

BIT 

N.DIV,A 

5 DIVIDE BY 0? 


NZERROR ER.DIVE 


2804 

+ JRZ . 

»0005 


CD 0000s08 

+ CALL 

ERRPGM 


18 

+ .BYTE 

+„„0005s3 

ER.DIV 


E660 

ANI 

N.SIGN+N.ZERO 3 CLEAR ERROR BITS 

2003 

JRNZ 

. . D1 

5 NO POS? TRY NEG,0 

3E01 

MVI 

A, 1 

5RETURN PLUS 

C9 

RET 



FE40 

„« D1s CPI 

N.SIGN 

3 NEGATIVE? 

3EFF 

MVI 

A,-l 

3 LETS ASSUME SO 

C8 

RZ 


5 YES 7 IT WAS 


CLR 

A 

3 MUST BE OE 

AF 

+.IFN A 

-A, E MVI 

A 7 0 3 I 


XRA A3 3 



C9 

RET 



C9 

RET 




“ -}~-j—1-4. 




3 1PUSH 7 IPSHO 

5 PUSHES A SINGLE-PRECISION 

FIXED POINT INTEGER ONTO 


5 THE TOP OF 

1* . . ■ 

NEEDS” 

THE NCU STACK. 

IPSHO PUSHES A 0 


3 DE = INTEGER TO PUSH 

ts 

' 7 . 


11 0000 

IPSHOs LX I 

D 1 0 

3 WE DO THIS A LOT 

7B 

IPUSHn MOV 

A, E 

3 LO ORDER 

D33E 

OUT 

NCUDAT 

5 TO STACK 

7A 

MOV 

A,D 

3 HI ORDER 

D.33E 

OUT 

NCUDAT 

3 TO STACK 

C9 

RET 




; +HH-4 


5 IGET i IPOP 

? FETCHES A SINGLE-PRECISION FIXED POINT INTEGER 
3 FROM THE NCU STACK. IPOP POPS IT OFF, IGET 
3 LEAVES STACK ASIS 











b” ill *-* 
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- EA - ANOTHER EVAL MODULE 
ET,IPOP - FETCH INT FROM NCU STACK 


3 RETURNSs 

5 DE = INTEGER FROM TOP OF NCU STACK 


OOEC *** 

3E77 

« >m)w - g|< M JMM tIW 

I GET: 

MV I 

A 7 N.PTOS 


00 EE-' 

D33F 


OUT 

NCUCOM 


OOF" 0 ' 

00 


NOP 


3 TIME FOR 

OOF 1 

00 


NOP 


5 TO DO IT 

00F2 *’ 

DB3E 

I POPs 

IN 

NCUDAT 


00F4 •" 

57 


MOV 

D, A 

3 HI ORDER 

00F5 •" 

DB3E 


IN 

NCUDAT 


00F7 •" 

5F 


MOV 

E-, A 

3 LO ORDER 

OOFS •" 

C9 

« HHHH- 

II 

*1 

RET 




‘J 

3 CNVIF 

3 CONVERTS INTEGER OPERAND TO FLOATING 


5 NEEDS5 

3 IY-> INTEGER OPERAND 
3 RETURNS: 

3 IY-> FLOATING OPERAND 

M 

? 

5 CALLSs 

3 GETOPND - GET I NT .OPND 
5 IPUSH - PUSH ON NCU STACK 




*.* 

PUTOPND - 

PUT FLT OPND ON 

IY STACK 



“ 

DONCU - DO 

CONVERSION 


00F9 

CD 0000SOA 

7 — 

CNVIF: CALL 

GETOPND 

5 GET INT 

OOFC-" 

CD 00E5-' 


CALL 

I PUSH 

5 PUSH ON NCU STACK 

OOFF ■" 

3E1D 


MV I 

A 7 N.FLTS 

5 CONVERT TO FLT 

0101 •" 

CD OOAB-" 


CALL 

DONCU 


0104-' 

3E06 


MV I 

A,$FVAL 

5 RETURN TYPE FLT 

0106-' 

C3 0000 s OF 


JMP 

PUTOPND 

3 SAVE IT 


3 ++++ 


u 

4 * 

5 CNVFI 

3 CONVERT FLOATING OPERAND TO INTEGER 

u 

3 NEEDS:: 

3 IY-> FLOATING OPERAND 

7 

5 RETURNSs 

3 IY—> INTEGER OPERAND 

tt 

V 

3 CALLS *: 

3 GETOPND -GET FLT OPND 
3 PUTOPND - SAVE INT OPND ON IY STACK 
3 DONCU - DO CONVERSION 


0109 ' CD OOOOS OA CNVFI: CALL GETOPND 5 GET FLT OPND 
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EA - EA - ANOTHER EVAL MODULE 

FLOATING TO INTEGER CONVERSION 


01 oc 

3E1F 

MV I 

AJM.FIXS 

5 CONVERT TO INT 

01OE •" 

CD OOAB 

CALL 

DONCU 


0111 / 

CD 00F2-' 

CALL 

I POP 

? GET IN DE 

0114-' 

3E04 

MV I 

A,$1VAL 

?RETURN TYPE INT 

0116' 

C3 0000 s OF 

•JMP 

PUTOPND 

5 SAVE IT 


• 4.+++ 

«* 

V 

5 CNVID 

5 CONVERT INTEGER OPERAND TO DOUBLE PRECISION (32 BIT) 
? INTEGER 

It 

7 

? NEEDSs 

5 IY~> SINGLE PRECISION INTEGER 

7 

; RETURNSs 




; I Y—> 

1 

DOUBLE 

PRECISION INTEGER 


0119' 

FD7E02 

tt ..... ., IIIU 
? 

CNVIDs 

MOV 

A,E.HVAL(Y) 

;GET HI BYTE OF INT 




TST 

A 

?CHECK SIGNU 

one-' 

B7 

4 * 

ORA 

All 


01 ID' 

3EFF 


MV I 

A,-l 

?ASSUME NEGATIVE 

01 IF-' 

FA 0123' 


JM 

..Cl 





CLR 

A 

SWAS POSITIVEC 

0122 "' 

AF 

+.IFN A 


~A, C MVI 

A ,03 



XRA 

All 



0123' 

FD7703 

« a L* 1 " 

MOV 

E.VAL+2(Y),A 

?PAD HI BYTES 

0126' 

FD7704 


MOV 

E.VAL+3CY),A 


0129' 

FD360000 


MV I 

E.TYP(Y),$DVAL 


012D' 

C9 


RET 





» 4.4.4.* 






■J 

5 CNVFD 






? CONVERT FLOATING POINT OPERAND 

TO DOUBLE 



? F'REC I 

SION INTEGER OPERAND 




7 

5 NEEDS 

“ 





5 IY—> 

FLOATING POINT OPERAND 




7 

; RETURNSs 





? I Y~> 

tt 

*$ 

DOUBLE 

PRECISION INTEGER 

OPERAND 

012E-" 

CD 0000 s-OA 

CNVFDs 

CALL 

GETOPND 

“GET FLT OP 

0131 -' 

3E1E 


MV1 

A,N.FIXD 

?CONVERT TO DOUBLE 

0133' 

CD OOAB"' 


CALL 

DONCU 


0136-' 

3E00 


MV I 

A,$DVAL 

?TYPE IS DOUBLE 

0.1.38-' 

C3 0000 sOF 


JMP 

PUTOPND 

5 PUT IT BACK 


W 1( |,n 4 |n Tr | <n . 


? CVDSTR 1 CVFSTR 

? CONVERT DOUBLE INTEGER ON NCU STACK INTO ASCII AND 

? STORE IN GIVEN AREA, CVDSTR WILL SUPPRESS LEADING 

? ZEROS* CVFSTR WILL. SUPPRESS SIGN (ASSUMES POSITIVE) 
** 
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EA ~ EA - ANOTHER EVAL MODULE 

CMVIDi CNVFD - CONVERT TO DOUBLE 


3 NEEDSs 

3 HL ~> WHERE TO PUT FIRST DIGIT 
3 NCU->DOUBLE PRECISION INTEGER 
5 B = FIELD WIDTH, USED ONLY FOR LEADING ZEROS 
5 DESTROYS DE, B 

3 RETURNSs 

3 HL -> AFTER LAST DIGIT 
? ALL ENTRIES ON NCU STACK DESTROYED! 

7 

5 CALLSs 

3 GETMSB - GET MOST SIGNIFICANT BYTE 
5 DONCU ~ DO NCU OPERATION 
5 IPUSH, IPOP - PUSH, POP SINGLE INTS 
3 RMDR ~ FIND REMAINDER 


0138*'* 


CVDSTRs 

CLR 

B 

3 NO FIELD!! 

LL 013B-" 

0600 

+.IFN B 


-A?, ?C MVI 

B , 03 [ 



XRA 

All 



013D" 

CD 0086"' 


CALL 

GETMSB 

5 GET HI ORDER BYTE 

0140"' 

F2 014B"' 


UP 

GVFSTR 

5 >0? LEAVE IT BE 

0143"' 

362D 


MV I 

M, 

3 LEADING MINUS 

0145 *" 

oo 

A. 


I NX 

H 


0146*" 

3E34 


MV I 

A,N.CHSD 

5 CHANGE SIGN 

0148*** 

CD OOAB" 

U 

CALL 

... ■' V- 

DONCU 




} ~r 

3 THE S 

;TACK IS l 

JSED TO SAVE THE 

: DIGITS' AS THEY ARE 



3 COMF1 

ITED FROM 

RIGHT TO LEFT. 

THE BOTTOM OF THE STAC 


3 IS MARKED WITH A NULL. WHEN ALL THE DIGITS ARE 
3 COMPUTED, THEY ARE POPPED OFF IN REVERSE ORDER AND 
3 GO INTO THE STRING LEFT TO RIGHT. A DIGIT IS FOUND 
3 BY DIVIDING THE CURRENT INTEGER BY 10. THE REMAINDER 
3 IS THE NEXT DIGIT, THE QUOTIENT IS THE NEXT INTEGER. 
3 WHEN THE QUOTIENT BECOMES 0, ALL DIGITS ARE ON THE 
3 STACK 


014B"' 


CVFSTRS 

CLR 

A 


3 MARK END OF DIGSII 

014B *" 

AF 

+.IFN A 


-A, C 

MV I 

A , 0 3 C 



XRA 

A3 3 




014C"' 

pp; 


PUSH 

PSW 


3 ON THE STACK 

014D-" 

11 OOOA 

* „ C2s 

LX I 

D, 10 


3 SAVE DOUBLE 10 

0150" 

CD 00E5"' 


CALL 

I PUSH 



0153*" 

CD 00E2 *" 


CALL 

IPSHO 



0156 "' 

CD 0000s1C 

. 

CALL 

RMDR 


"REMAINDER 

0159" 

F5 


PUSH 

PSW 


3 SAVE QUOT IENT SIGN 

015 A "' 

CD 00F2"' 


L* ALL 

I POP 


3 IGNORE HI PART 

015D "' 

CD 00F2"' 


L ALL 

I POP 


3 DE = LO ORDER DIGIT 

0160"' 

7B 


MOV 

A,E 


3 NEW DIGIT 

0161" 

C630 


ADI 

•" 0"' 


3 MAKE IT ASCI I 

0163"' 

D1 


POP 

D 


3 DESIGN OF QUOTIENT 

0164 "' 

F5 


PUSH 

PSW 


5 SAVE DIGIT 

0165"' 

05 


DCR 

B 


3 COUNT THIS DIGIT 




TST ' 

DC 



0166"' 

7A 

+.IFN D- 

■A?, ?Z 

MOV 

A, D3 
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EA - EA - ANOTHER 

EVAL MODULE 




CNVID* CNVFD - CONVERT 

TO DOUBLE 




0167 " B7 

-h ORA 

All 



0168" 20E3 

JRNZ 

„ . C2 

; NOT 

0? GO AGAIN 


TST 

B 

S PUT 

IN LEADING ZERO' 

LL 016A78 

+.IFN B 

-A?, ?C MOV 

A,B 

I 

016B" B7 

+ ORA 

All 



01.6C - F2 014D " 

UP 

a it C2 

5 YES'” 

‘ CONTINUE 


5 + 





; ALL DIGITS HAVE BEEN COMPUTED» STACK HASS 
5 SP -> ASCII DIGIT 

? u it u 

5 ASCII DIGIT 

S 0 MARKER 

5 WE COPY ALL DIGITS INTO STRING 




016F" 

FI 

« «C5« 

POP 

PSW 

5 A=ASC11 DIGIT 

0170" 

77 


MOV 

M, A 

5 SAVE DIGIT 

0171 " 

aLC* 


INX 

H 

5 HL-~>NEXT SPACE 




TST 

A 

5 WAS THE NULL? L 

0172" 

B7 

-i- 

ORA 

Ali 


0173" 

20FA 


JRNZ 

. . C5 

? NO? COPY MORE 

0175" 

2B 


DCX 

H 

5 POINT AT NULL 

0176" 

C9 


RET 




END 
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EA - EA - ANOTHER EVAL MODULE 

h-m-m- SYMBOL TABLE +++++ 


AASN 

005F 


ALSTR 

0000 s04 

X 

ARGEMD 

6252 


ARGSTK 

6000 

ASSIGN 

OOO1 

I 

ASS INF* 

OOOD •" 

I 

BACKGR 

65CC 


BLANK 

0020 

BOTRAM 

6000 


BOTTOM 

64 A 9 


CHARSL 

65DD 


CLEARS 

60CA 

CMTRL 

OOOC 


CNTRLC 

65CD 


CNTRLO 

65D9 


CNTR.LU. 

0015 

CNTRLZ 

65E4 


CNVFD 

012E 

I 

GNVFI 

0109 •" 

I 

CNV ID 

0119 

CNVIF 

OOF'?"' 

I 

CONV 

0000s05 

X 

CONV I 

0000s06 

X 

CF'LFLG 

6540 

CPLIN 

6810 


CF'LTMF* 

6720 


CPREF 

6910 


CP«ARG 

0001 

CP.MXL 

0080 


CP.MXR 

0014 


CP.NO 

0002 


OR 

OOOD 
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CPL 


) CP/M DISK ASSEMBLER VERSION 2.21 


PAGE 


. INSERT As MAC.ASM 


© 

.INSERT As 
©.REMARK / 
© 


, ASM 


© 


© 

© 

© 

© 

© 

© 


a 

■a- a a 
aaa 

aaaaaaa 

a 

a 

a 

a 

a 

aaaaaaa 

"WHEN YOU CARE ENOUGH TO PROGRAM 
THE VERY BEST" 


ZGRASS V3.OOOOOOOO 
JAY FENTONr NOLA DONATO, AND 
(C) 1978 


© 

© 

© 

©BY 
© 

© 

©/ 

.INSERT AsZRAM.ASM 
.INSERT AsMCUEQU.ASM 
AsCPLEQU.ASM 


TOM DEFANTI 


.INSERT 
.LINK 
.IDENT 
. PREL 
5 + 

5 THESE 


CPL 


INTERNALS ARE ONLY HERE BECAUSE OF DEBUGGING 


THEY CAN BE KILLED WHEN COMPILE WORKS 


INTERN 

INTERN 

INTERN 

INTERN 

INTERN 


LINCPL 
SAVREF 
GETLAB 
GETREF 
RESOLV 


INTERNALS 


INTERN 
, INTERN 
INTERN 
, INTERN 
INTERN 
.INTERN 
INTERN 
, INTERN 
INTERN 
! + 

EXTERNAL 


CFOR 
CGO 
C IF 

COMPILE 
CNXT 
CSK.P 
XBR 
X IF 
X INC 


COMPILED FOR 
COMPILED GOTO 
COMPILED IF 
COMPILE COMMAND 
COMPILED NEXT 
COMPILED SKIP 
XEQ BRANCH 
XEQ IF 

XEQ INCRMENT (NEXT) 


.EXTERN ALCPL 
.EXTERN ALLOCD 


ALLOCATE MEMORY 
: RETURN MEMORY FRAGMENT 
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CPL - 


»EXTERN ARG 
.EXTERN ASSIGN 
.EXTERN BLANX 
.EXTERN CARTYP 
.EXTERN CONVI 
.EXTERN CORE 
.EXTERN DECSIY 
.EXTERN DONCU 
.EXTERN ERRPGM 
.EXTERN EVALC 
.EXTERN EVLCPL 
.EXTERN FPUSH 
.EXTERN FREEALL 
.EXTERN FUNCTION 
.EXTERN GENCOD 
.EXTERN GETNUM 
.EXTERN GETOPND 
.EXTERN GETSKP 
.EXTERN GETVAL 


3PARSE ARGUMENTS 
3 ASSIGN VALUE 
3 PARSE ARG DELIMS 
5FIND CHAR TYPE 
3 CONVERT 
3 LINK FOR- CODE 
3 DEC IY BY 5 
3 DO NCU OPERATION 
3 ERROR MESSAGE 
3 CREATE CODE BLOCK 
3 EVAL COMPILED CODE 
3 PUSH FLOATING 
3 FREE LOCAL NAMES 
5 COMPILE FUNCTION CALL 
3 GENERATE 1 BYTE OF CODE 
3 PARSE FLOATING MUM 
3 GET OPERAND 
3 PARSE NUMBER 
3 GET VALUE OF NAME 


.EXTERN INC5IY 
.EXTERN IPOP 
.EXTERN IPUSH 
.EXTERN KISNL 
.EXTERN KLB 
.EXTERN NAMADR 
.EXTERN NAMBLD 
.EXTERN NAMSET 
.EXTERN NENAME 
.EXTERN IMXTVAL 
.EXTERN OPUSH 
.EXTERN POPOPND 
.EXTERN PSHOPND 
.EXTERN RETNONE 
.EXTERN XCGVAL 

5 •+•+++ 


3 BUMP IY TO NEXT ARG 
3 POP FROM NCU 
5 PUSH ON NCU 
3 CHECK END DEL1M 
3 SKIP BLANKS 
5 LOOK UP NAME 
5 CREATE NAME 
3 PARSE NAME 
3 LOOK UP LOCAL NAME 
5 GET NAME VALUE 
3 GENERATE PUSH 
5 PARSE OPERAND 
3 PUSH OPERAND 
5 RETURN FOR CODE 
3 ASSIGN VALUE 


3 COMPILE 

3 COMPILES AN ASCII STRING INTO INTERNAL FAST CODE 
3 AND REPLACES THE STRING 


3 SYNTAX! 

3 COMPILE NAME 

3 <NAME> - NAME OF AN ASCII STRING TO COMPILE 


5 RETURNS! 

3 DE --> NAME PASSED (NOW HAS CODE) 

5 A = TYPE NAME <$NAME) 

5 NAME IS NOW ASSIGNED TO A COMPILED CODE BLOCK 
3 CALLS! 

3 ALCPL -- ALLOCATE MEMORY FOR COMPILE BLOCK 
3 LINCPL - COMPILE A LINE 
3 RESOLV - RESOLVE REFERENCES 
5 FREEALL •- FREE LOCAL NAMES > LABELS 

3 GETOPND - GET STRING NAME 
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CPL 


5 XCGVAL - ASSIGN CODE TO NAME 
•? NXTVAL - GET STRING VALUE 
5 GENCOD ~ GENERATE COMPILE CODE 

St 

? 

5 COMPILER BLOCK LOOKS LIKEs 

St 

? 

? * TYPE * $CPLADR 

« -* # # # # * # 

? * LENGTH * LENGTH IN BLOCKS 

? ft FLAGS 0 

« * # # # * # & * * & # & * 

■5 * TEMP LIST *' 

5 * LINKAGE * 

« tt****#***#**#*#** 

3 *■ USE COUNT * 

3 * # OF LOCALS * CP.LOC 

5 *8**&*ft’ '&"&#■&• 

3 * START OF CODE * CP„SIZ 

.3 * - , „ « * 

? * # 

« &### tt**#*****'**.## 


M.CMDCCOMPILE,„.CDX,0 ? CORE,0,..CODE]! 


0001 

18 

+COMPILE 

s .BYTE $CMDADR 


0002 •■' 

OB 

4* 

. BYTE (..CDX-COMPILE >/16+1 

0003 •’■ 

00 

4* 

.BYTE 0 


0004 •" 

0000 5 OB 

4* 

.. WORD CORE 


0006 " 

0012" 

4* 

.WORD ..CODE 


0008**' 

0000 

4“ 

«WORD 0 


000A •" 

434F 4D50494C 

:+ 

+ 1 

..CODES 

.ASCIZ /COMPILE/ 


0012-" 

FDF^ 

PUSH Y. 

5IY—>STACK AREA 

0014" 

p’Fi 


PUSH H 

5 HL~>EXF’RE88I0N 



V 

5 HERE 

WE GET A POINTER TO THE 

FIRST CHARACTER 1 



5 THE S 

TRING TO COMPILE. WE LOOK UP THE NAME 



5 AND G 

ET ITS STRING VALUE. IF 

NOT A STRING 



5 OR IF 
? 

NULL, IT IS AN ERROR 


0015" 

CD 0000s 06 


CALL ARG 

5 GET THE NAME 

0018" 

OAOO 


.BYTE $NAME,$TAF 


001 A-' 

CD 0000s16 


CALL GETOPND 

5 DE“>NAMEBLOCI< 

op ID" 

EB 


XCHG 

5 HL->NAMEBLOCK 

00 IE" 

E5 


PUSH H 

;SAVE NAME PTR 

00 IF". 

CD 0000s22 


CALL NXTVAL 

?HL—>VALUE 




ZERROR ER.CPL 

.5 0? CANNOT COMP 

0022" 

2004 

4* 

JRNZ ,.0001 


0024" 

CD 0000sOE 

4* 

CALL ERRPGM 


0027" 

3B 

4 . 

.BYTE ER.CPL 


0028" 


4* „ „ 0001 ” 

3 


0028" 

3E08 


MVI A,TSTRADR 

?IS A STRING? 
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CPL 


002A" 

BE 


CMP 

M 





NZERROR ER.CPL 

5 NO? CANT COMPILEC 

002B ■" 

2804 

4 * 

•JR Z . 

. 0002 


002D-- 

CD 0000 s OE 

4 - 

CALL 

ERRPGM 


0030“' 

3B 

"h 

.BYTE ER.CPL 


0031 •' 


4- 
1 n 

.0002: l 



0031" 

11 OOOA 


LX I 

D,$SASCII 

3GET STRING ADDR 

0034:" 

19 


DA 

D 

3 HL—>1ST CHAR OF STRING 

0035" 

E5 


PUSH 

H 

5 SAVE ADDR 


3 HERE WE ALLOCATE MEMORY FOR THE COMPILED CODE 
3 BLOCK AND INITIALIZE THE POINTERS 

3 ICPLIN - INDEX INTO TABLE OF POINTERS TO COMPILED 
5 CODE LINES 

5 ICPREF INDEX INTO TABLE OF LINE NUMBERS OF LINES 
3 WHICH HAVE UNRESOLVED REFERENCES 
5 CURLIN - LINE NUMBER OF CURRENT LINE 
3 LOCNUM - LOCAL VARIABLE COUNTER 
5 CF'LFLG - COMPILE MODE FLAG 


0036" 

CD 

0000s04 



CALL 

ALCPL 

3 ALLOCATE CODE BLOCK 

0Q39 < 

E3 




XTHL 


3(SP)—>BLOCK,HL->STRING 

003A x 

E5 




PUSH 

H 

3 SAVE THE PTR 

003B'" 

21 

681C 



LX I 

HrCPLIN 

3 SET UP LINE PTR 

003E*‘* 


6V3U 



SHLD 

ICPLIN 


0041 

21 

691C 



LX I 

H,CPREF 

3 SET UF REF PTR 

0044" 


6932 



SHLD 

ICPREF 







CLR 

A 

5 CURRENT LINE #11 

0047" 

AF 


+ „ IFN 

A 


-A, II MV I 

a •? o i r. 




XRA 


All 



0048 •" 

9*9' 

6934 



STA 

CURLIN 


004B*** 


6730 



STA 

LOCNUM 

3 LOCAL VAR COUNTER 

004E ■" 

3C 




I NR 

A 

3 SET IT 

004F/ 

**w» O 

6540 



STA 

CPLFLG 

5 COMPILE FLAG 

0052" 

El 




POP 

H 

3 HL->STRING TO COMPILE 




7 -r 

3 STACK 

HAS STATUS SO FARs 





5 SP- 


ADDRESS 

OF COMPILED BLOCK 




u 


ADDRESS 

OF NAME BLOCK 

TO ASSIGN TO 




1 


OLD HL' 






II 

•? 


OLD IY 






3 WE 

NOW COMPILE ALL THE LINE 

S IN THE STRING 




3 HL 

~> 

1ST CHARACTER OF STRING 




5 IY 

***" 

1ST BYTE 

OF COMPILED 

CODE AREA 

0053*" 

CD 

QOC1 •" 

.CNXTs 

CALL 

LINCF'L 

3 COMPILE A LINE 

0056 * 

30FB 



JRNC 

.»CNXT 







CLR 

A 

3 RESET COMPILE FLAG C 

0053 *" 

AF 


+ . IFN 

A 


-A, C MVI 

A , OK 




XRA 


All 



0059**' 


6540 



STA 

CPLFLG 


oobu 

CD 

0000s14 



CALL 

GENCOD 

3 TERMINATE CODE 


3 + 

3 NOW WE MUST RESOLVE REFERENCES (SKIPS, GOTOS) 
3 DELETE ALL LOCAL NAMES AND LABELS 
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MBLER VERSION : 

> •*> i 

Urn t« •! 1* X 

PAGE 5 

CPL 







3 AND COPY THE LIST OF TEMPS ( 

LITERAL STRINGS, 



3 ETC) INTO ’ 

THE HEADER OF THE 

COMPILED BLOCK. 

005F -' 

CD 0150-’ 

7 

CALL 

RESOLV 

3 RESOLVE REFS 

0062 ” 

2A 672E 

LHLD 

LOCTAB 

3 HL-MST NAME 

0065- 

CD 0000s12 

CALL 

FREEALL 

3 FREE THEM ALL 

0068" 

DDE 1 

POP 

X 

5IX~>COMPILE BLOCK 

006A-" 

2A 600A 

LHLD 

TEMPHDR 

5 HL-~>TEMP LIST 

006D' 

DD7503 

MOV 

$NLINK(X),L 


0070- 

DD7404 

MOV 

$NL1NK+1(X)rH 


0073 •' 

3A 6730 

LDA 

LOCNUM 

5 SAVE # OF LOGS 

0076*' 

DD7706 

MOV 

CP.LOC(X),A 

3 IN HEADER TOO 

0079** 

21 0000 

LX I 

H 7 0 

5 CLEAR TEMPS 

007C" 

22 60CA 

8HLD 

TEMPHDR 


007F- 

22 672E 

SHLD 

LOCTAB 

3 AND LOCALS 



MVD 

H, X 

5 HL—>BLOCK HDRII 

0082 - 

DDES 

+.IFIDN EX 

3 [ X 3 i 

l PUSH X 

0084 

El 

+ POP 

H 




+ 3 

■ r" 




MVD 

D, Y 

3 DE—>AFTER CODEC 

0085 - 

FDE5 

+ „IFIDN CY 

3 EY3, 

C PUSH Y 

0087- 

D1 

+ POP 

D 




+ 3 



0088 - 

CD 0000s05 

CALL 

ALLOCD 

3 RETURN FRAGMENT 

0088 - 

EB 

XCHG 


3 DE—>TOP OF BLOCK 

0080 - 

3E12 

MV I 

A,$CPLADR 

5 A=TYPE OF BLOCK 



3 + 

5 NOW WE ASS 

ION THE COMPILED B 

LOCK TO THE NAME AND 



5 RETURN THE 

tl ^ 

NAME AS THE VALUE 

TO THE CALLER 

008E- 

El 

POP 

H 

3 HL->NAMEBLOCK 

008F- 

E5 

PUSH 

H 

3 SAVE AGAIN 

0090 

CD 0000s 27 

CALL 

XCGVAL 

3 ASSIGN TO NAME 

0093 ' 

D1 

POP 

D 

5 DE-7NAMEBL0CK 

0094 

21 0000 

LX I 

Hj 0 

3 AND CPL WORD 

0097 •' 

22 6720 

SHLD 

CPLTMP 


009ft 

3E0A 

MV I 

A,$NAME 

3 RETURN TYPE NAME 

0090- 

El 

POP 

H 


009D 

FDE1 

POP 

Y 


009F •" 

03 0000s26 

•JMP 

RETNONE 


00A2-" 


„ CDXs 





» •*}- •+• 





? 

? NEWLIN 





3 CHANGES POINTERS AND CONTEXT 

FOR A NEW LINE 



3 OF COMPILED CODE 




■ 7 . ■ 

NEEDS s 





3 ICPLIN - 

INDEX INTO LINE P 

0INTER TABLE . 



3 CURL IN ~ 

LINE NUMBER OF CU 

RRENT LINE 



? RETURNSs 





5 CURLIN - 

BUMPED BY ONE 




■; I CPL I N - 

n 

BUMPED BY 2 
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00A2-" NEWLINs 

3 + 

3 THE CURRENT LINE NUMBER IS INCREMENTED, IF THERE 
3 ARE ALREADY CP.MXL LINES, MO MORE WILL FIT, WE 
3 PRINT AN ERROR 


00 A2 

3A 6934 


LDA 

CURL IN 

5 BUMP 

CURRENT LINE 

00 A5"’ 

3C 


I NR 

A 

3 BUMP 

IT 

00 A6 

FE80 


CPI 

CP.MXL 

3 TOO ! 

MANY? 




NCERROR ER.TML 

3 YES? 

ERROR C 

00 AS 

3804 


•JRC . 

. 0003 



00 A A •- 

CD OOOOsOE 

; ~h 

CALL 

ERRPGM 



GOAD-' 

3E 

•h 

.BYTE 

ER.TML 



00 AE"’ 


+« 

. 0003 x 1 




OOAE-" 

32 6934 


STA 

CURL IN 

3 SAVE 

NEW LINE # 


1 + 

3 THE ADDRESS OF THE COMPILED CODE FOR THIS LINE IS 
3 SAVED IN THE TABLE CPLIN. ICPLIN IS THE INDEX INTO 
5 THE TABLE. EACH ENTRY HAS THE ADDRESS OF THE CODE 
3 COMPILED FOR THAT PARTICULAR LINE 




? 




00 B1 •" 

E5 


PUSH 

H 


00B2 

2A 6930 


LHLD 

I CPI 

_IN 3HL->TABLE ENTRY 

00B5 " 


IFLINX 

MVD 

D, Y 

3 DE—>CODE ADDRI 

00B5 

FDE5 

+.IFIDN 

T.Y 


] CY3, C PUSH Y 

GOB 7 

D1 

+ 

j. -I 

POP 

D 


00B8 

73 


MOV 

M, E 

5 SAVE ADDR OF 

00B9 •" 

*7* O 


I NX 

H 

3 THIS NEXT LINE 

OOBA •" 

72 


MOV 

M, D 

5 OF CODE 

OOBB-‘ 



I NX 

H 

5 HL-->NEXT ENTRY 

00 BC" 

22 6930 


SHLD 

I CPI 

-IN 3 SAVE NEW PTR 

OOBF 

Ei 


POP 

H 


ooco 

C9 


RET 





« -}** -*{** -*{♦• 

B 






? 

3 L1NCP 

L 





3 COMPI 

LES A SINGLE 

LINE OF A STRING INTO INTERNAL 



3 CUBE 

n 

FORMAT 





7 

5 NEEDS 

It 





3 HL 

-> START 

OF 1 

....INE TO COMPILE 



5 IY 

~> WHERE 

TO 1 

-•’UT COMPILED CODE 


RETURNS« 

C BIT SET IF NO MORE LINES LEFT 
HL ~> AFTER LINE COMPILED (AT NEXT LINE 
OR NULL) 

IY -> AFTER COMPILED CODE 



ICPLIN - CURRENT LINE PTR INDEX 
CURLIN - CURRENT LINE # 





TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 
CPL 


PAGE 7 


5 CALLS s 

S GETLAB - PARSE LABEL 
5 NEWLIN - SET UP FOR MEW LIME 
5 EVALC - COMP ILE EXPRESS I.ON 
5 KISNL — CHECK FOR TERMINATOR 




? IMAMSET - 

PARSE NAME 




$ CARTYP - 

CHECK CHARACTER 

TYPE 



.5 FUNCTION 

•] 

- PARSE FUNCTION 

CALL 

00C1 ■" 

CD 00A2 

n . 

7 

LINCPLs CALL 

NEWLIN 


00C4 

CD 00005 ID 

LINXTs CALL 

KLB 

5 SKIP BLANX 

00C7 " 

CD 0000509 

CALL 

CARTYP 

5 CHECK CHARACTER TYPE 

OOCA •" 

38 IF 

JRC 

. „ LAB 

S DIGIT? LABEL THEN 

OOCC •" 

200E 

JRNZ 

. . NAM 

5LETTER? NAME! 


5 + 

S IF THE LINE STARTS WITH A DOT IT IS A COMMENT 

5 COMMENTS ARE IGNORED (BUT STILL COUNTED AS LINES) 





TST 

M 

5 IF NULL, SET CARRY! 

OOCE •" 

7E 

+.IFN M 


-A?, ?C MOV 

A, M 3 

OOCF 

B7 

HI- 

ORA 

AI 


DODO x 

37 


STC 



00 D1 

C8 


RZ 



00D2 

FE2E 


CPI 

/ 

5 STARTS WITH DOT? 

00D4 - 

CA 025C 


JZ 

LINEND 

?SKIP TO END 

00D7 •- 

CD 0000 s 1C 


CALL 

KISNL 

"IS TERMY? 

OODA" 

20219 


JRZ 

LEND 

?LEAVE IT BE THEN 



5 THE F 

IRST CHARACTER IS A LE 

TTER, IT IS A COMMAND 



; IF IT 

IS FOLLOWED BY A TERMINATOR, IT IS A COMMAND 



5 WITH 

NO ARGUMENTS. OTHERWIS 

E WE TREAT IT AS AN 



5 EXPRE 

tt 

SSI ON 



OODC ** 

CD 0000520 

3 

..NAM5 

CALL 

NAMSET 

SPARSE THE NAME 

OODF •" 

CD 0000»1C 


CALL 

KISNL 

SEND OF LINE? 

00E2-' 

EB 


XCI-IG 


5 HL-O-START OF NAME 

00E3 

20 ID 


JRNZ 

. .EVL 

SNOT END, BACKUP 

00 E 5 *’* 

EB 


XCHG 


S DE->START,HL~>END 

00E& *** 

CD 0000513 


CALL 

FUNCTION 

5 FUNCTION CALL 

00E9 *** 

181A 

« «L 

JMPR 

LEND 

SEND OF LINE 



5 LABEL 

S ARE PARSED OVER AND 

PUT INTO THE NAMES TABLE 



? THE LINE NUMBER OF THE LINE 

WHICH CONTAINED THE 



5 LABEL 

** MO 

IS SAVED IN THE VALUE 

FIELD OF THE NAME 

00 EB 

CD 0 .1. 16 

V 

..LABS 

CALL 

GETLAB 

5 PARSE LABEL 

OOEE •" 

E5 


PUSH 

H 

5 SAVE LINE PTR 

OOEF •'* 

21 0005 


LX I 

H,$NVALUE 

5 OFFSET OF VALUE 

00F2 

19 


DAD 

D 

SHL->VALUE FIELD 




TST 

M 

5 IF NONZERO,C 

OOF 3 •“ 

7E 

+„ IFN M 


-A?, ?C MOV 

A, M 3 

00F4 *** 

B7 

4- •' 

ORA 

A3 





NZ ERROR 

ER.DUP 

S DUPLICATE LABEL! 


OOFS 2804 


JRZ . ,, 0004 


+ 
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00F7" 
OOFft" 
OOFB" 

CD 0000sOE 
3C 

+ CALL 

+ .BYTE 

+ „ . 0004 s 3 

ERRPGM 

ER.DUP 


OQFB *** 

3A 6934 

LDA 

CURLIN 

5 A=LINE # 

OOFE *** 

77 

MOV 

M, A 

3 SAVE IT 

OOFF 

El 

POP 

H 

3 RESTORE PTR 

OlOO*" 

18C2 

•JMPR 

s + 

LINXT 

3 NOW DO LINE 


3 THE CODE IS COMPILED - THE ONLY THING THAT REMAINS ON 
5 THE LINE IS AM EXPRESSION (FUNCTION CALL, ETC.) 

5 THEN THE TERMINATOR IS CHECKED AND WE EXIT 


0102-' 

CD 0000s OF 

If _ 

7 

..EVLs 

CALL 

EVALC 

3 COMPILE IT 

0105 

CD 0000s ID 

LENDS 

CALL 

KLB 

3 SKIP BLANX 




TST 

M 

3 CHECK-FOR END II 

LL 0108"' 

7E 

+. IFN M 


-A?, ?l MOV 

A, M 

0109" 

B7 


ORA 

A3 


010 A •" 

08 


RZ 



01 OB'" 

OO 

.8... 


I NX 

H 

5 HL->AFTER TERMY 

010 c •" 

FE3B 


CPI 

7 

5 SEMI? GO AGAIN 

010E" 

28B4 


JRZ 

LINXT 


0110-' 

FEOA 


CPI 

NL 

3 NEWLINE? 

0112-' 

L‘0 


RZ 


3 END OF LINE 

0113-' 

2B 


DCX 

H 

3 BACK IT UP 

011 4'- 

18 AE 

W 

7 

JMPR 

LINXT 

5 IS FROM IF 


3 GETLAB 

; PARSES A LABEL AND PUTS IT INTO THE NAMES TABLE 
1 FOR THE COMPILER 


3 NEEDSs 

3 HL ~> POSSIBLE LABEL 

7 

3 RETURNSs 

5 CARRY SET IF NO LABEL, ELSE 
3 HL -> AFTER LABEL 

? DE ~> NAMEBLOCK ADDRESS 

7 

? CALLS'* ( 

? CARTYP - CHECK 1ST CHAR 

3 NAMSET - PARSE NAME 

3 NAMADR - LOOK UP NAME 

5 NAMBLD - CREATE NAME 

5 KLB - SKIP BLANX AFTER LABEL 


0116-' 

CD 0000s09 

88 

7 

u tt>)r 

GETLABs CALL 

CARTYP 

3 IF 1ST CHAR IS 

0119" 

3011 

JRNC 

„ .FAIL. 

5 NOT NUMBER, RET 

01 IB-' 

CD 0000 s 20 

CALL 

NAMSET 

5 PARSE LABEL 

01 IE" 

21 672B 

LX I 

Hy.LOCT AB-$NL INK 

3 NAMES LISTHEAD 

0121 -' 

CD 0000s 21 

CALL 

NENAME 

3 LOOK IT UP 

0124 

C4 0000s IF 

CNZ 

NAMBLD 

3 CREATE IT 

0127" 

CD 0000s ID 

CALL 

KLB 

3 SKIP BLANKS 



CLC 


3 CLEAR CARRY1 
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012 A 
012B" 
012C-" 
0 :i. 2D •" 


B7 

C9 

37 

C9 


+ 


, FAIL! 




ORA 

RET 

STC 

RET 


A3 


? SET CARRY 


SAVREF 

SAVES THE LINE NUMBER OF THE CURRENT LINE IN THE 
REFERENCE TABLE - AFTER THE FIRST PASS IS MADE OVER 
ALL LINES, ALL REFERENCES WILL BE RESOLVED BY RESOLV 


NEEDSs 
ICPREF 
CURLIN 


INDEX INTO REFERENCE TABLE 
NUMBER OF CURRENT LINE 


012E-- 
012F •” 
0130" 

0133'- 

0135-' 

0136" 
0137"' 
0138 -' 
0139"' 
013 A 
013B'" 

013F 
0140"' 


E5 

D5 

2A 6932 

FDE5 

D1 

IB 

73 

.s« O 

72 

w 

22 6932 

D1 

El 

C9 


RETURNSs 

ICPREF - BUMPED BY ONE 

LINE NUMBER SAVED IN REFERENCE TABLE CPREF 


SAVREFs PUSH 
PUSH 
LHLD 
MVD 

+„IFIDM CY 

POP 


+ 

-K 


DCX 

MOV 

I NX 

MOV 

I NX 

SHLD 

POP 

PUP 

RET 


H 

D 

ICPREF 
D, Y 

D 

D 

M, E 
H 

M, D 
H 

ICPREF 

D 

H 


?HL~>TABLE ENTRY 
;DE->CURRENT ADDRC 
3 CY3, C PUSH Y 


5 POINT AT TOKEN 
",SAVE IT 


? SAVE THE PTR 


» ++++ 


5 GETREF 

5 LOOKS UP THE ADDRESS OF THE GIVEN LINE IN THE LINE 
? TABLE CREATED AT COMPILE TIME 

IS 

3 

? NEEDSa 

5 A = NUMBER OF LINE TO FIND 
** 

? RETURNSs 

5 DE -> 1ST BYTE OF CODE COMPILED FOR THAT LINE 

It 

7 

5 USESs 

5 CPLIN - TABLE OF POINTERS TO COMPILED CODE FOR 
? LINES OF THE CURRENT MACRO 


0141"' 

0142"' 


E5 

11 68IC 


GETREFs PUSH 
LX I 


HI 

D,CPLIN 


; DE-->TABLE OF LINES 
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0145-' 

3D 



DCR. 

A 



? MAKE 

0 BAS 

5 ED 

0146-' 




ADD 

A 



; WORD 

OFFSE 

ET 

0147 •' 

6F 



MOV 

L» A 



? HL=L 

I ME NI 

JMBER 





CLR 

HC 






LL 0148-' 

2600 

•+*»: 

IFN H 

-A?, ?C 

MV I 

H 

, on: 

XRA 

a i: 

] 

014A" 

19 



DAD 

D 



5 HL-> 

TABLE 

ENTRY 

014B-' 




MOV 

EVM 



; DE=ADDRESi 

5 OF 

014G "' 




INX 

H 



5 COMP 

I LED ( 

CODE 

014D •" 

56 



MOV 

D,M 



5 FOR 

THAT 1, 

...INE 

014E-' 

El 



POP 

H 






014F 

C9 



RET 









n m 
? 

n 

•|~ -1 — f*~f~ 










it 

3 

RESO; 

LV 









tt 

3 

PESO; 

LVES REFERENCES T 

0 

LABELS 

AND L 

INES r 

1A.DE BY SKIPS 



U 

AMD 

G0T08 IN i 

COMPILED 

c 

ODE 






7 

7 

NEED 

5« 









ft 

3 

CP 

LIN - TAB! 

_E OF PO 

IN 

TERS TO 

EACH 

LINE 

OF 



7 


COMPILED CODE 








II 

■■ ? 

CP 

REF - TAB! 

_E OF LINE 

NUMBER 

S U F 

LINES 

WHICH 



it 

7 


CONTAIN 

UNRESOL 

VED REFERENCES 





« 

RETURNSs 









tt 

RE 

SOLVES ALI 

_ SKIP 7 G 

OT 

0 REFERENCES 

TO BRANCHES 



7 

TO 

SPECIFIC 

ADDRESS 

ES 

IN THE 

COMP 

I LED II 

CODE 



7 

7 

CALL 

C* »* 

ti 









it 

•i 

GE 

TREF - GE' 

T LABEL 

REFERENCE 

NAME 





7 

n 

NX 

TVAL - GET VALUE 

OF 

NAME 






7 

V 

NOTE 

Cj If 









u 

7 

GOTO 

REFERENC! 

ES LOOK 

LI 

KEs 






u 

7 


CP. GO 









u 

7 

ti 


PTR TO I 

MAMEBLOC 

K 







7 

it 

7 

SKIP 

u 

REFERENC! 

ES LOOK 

LI 

KEs 






tt 

7 


CP.SKP 









tt 

7 

« 


LINE # TO SKIP 

TO 







7 

n 

7 

THEY 

ARE RESO! 

..VIED INTO5 







u 

7 


CP.BR 









7 

H 

7 


ADDR IN 

COMPILE 

D 

CODE TO 

GO T 

0 


0150 "' 

2A 6932 

7 " 

RE 

ESOLV 

s LHLD 

ICF'REF 



S HL-> 

NEXT F 

REF SPOT 





CLR 

AC 






0153-' 

AF 

+.: 

IFN A 

-A, II 

MV I 

A 

,0]C 

XRA 

All 

] 

0154"' 

•yy 



MOV 

M, A 



? ZERO 

LAST 

ONE 

01 5! = i-- 




INX 

H 






0156-* 

77 



MOV 

M, A 






0157-* 

21 691C 



LX I 

HVCPREF 



5 HL-~> 

REF Tt 

^BLE 

015 A 

ES 



PUSH 

H 



? SAVE 

REF F 

■‘TR 



. 7'", 

r 

WE 01 

ET THE ADDRESS OF 

TI 

HE NEXT 

REFE 

RENCE 

AND 
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015B •" 
015C" 
015D" 
015E-" 
015F" 

0160 " 
0161 •- 
0162-' 
0163" 
0164" 
0165" 
0166" 


0167-' 
0169" 
016B 
016C"' 
016D" 
016E"' 
016F "' 
0170" 

LL 0173.’" 
0174"' 

0175" 
0177" 
017A" 
017B " 
017B" 


017C" 
017F "' 
0180" 
0181" 
0182 " 
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5 FIND THE ADDRESS OF THE COMPILED CODE WITH CONTAIN 
3 THE REFERENCE. THE TYPE OF REFERENCE (CP.SKP, CP.GO) 
5 IS REPLACED BY A TRANSFER OF CONTROL CODE CP.BR 


El 

.„NXT! POP 

H 


3 HL->NEXT REFERENCE 

5E 

MOV 

E, M 


3 DE—>LINE WITH REF 

90 

INX 

H 



56 

MOV 

D, M 




INX 

H 


© 


TSTD 

D 


3 IF 0, NO MORE! 

7A 

+ MOV 

A, D 



B3 

+ ORA 

D 


+ 13 

C8 

RZ 




E5 

PUSH 

H 


5 SAVE REF PTR 

EB 

XCHG 



3 HL—>LINE WITH REF 

7E 

MOV 

A, M 


5 A=TYPE (SKIP,GOTO) 

2;~; 

INX 

H 


3 HL->REF INFO 


5. + - 

3 IF IT IS ft 

GOTO (CP.GO) THE NEXT 2 BYTES HAVE THE 


3 ADDRESS OF 

THE NAME WHICH 

CONTAINS THE LABEL TO 


3 GO TO. THE 

VALUE FIELD HAS 

: THE LINE NUMBER OF 


3 THE LINE WHOSE ADDRES: 

S WE 

WANT 

FE08 

5 ^ 

CPI 

CP«GO 


3 GOTO? 

2019 

JRNZ 

„ . SKP 


5 NO? TRY SKIP 

E5 

PUSH 

H 



5E 

MOV 

E, M 


5 DE=ADDR OF NAME 

23 

INX 

H 



56 

MOV 

D, M 



EB 

XCHG 



3 HL~>NAME NODE 

CD 0000 s 22 

CALL 

WXTVAL 


3 HL=LABEL NUMBER 


TST 

L 


3 CHECK LINE #11 

7D 

+.IFN L 

-A?, ?C 

MOV 

A, L 3 

B7 

+ ORA 

A3 




ZERROR ER.LAB 


30? WAS NO LABEL! 

2004 

+ JRNZ 

„« 0005 



CD 0000 sOE 

+ CALL 

ERRPGM 



OC Z 

+ .BYTE ER.LAB 




+ . „ 0005 s I! 




El 

pop 

H 


3 HL->WHERE TO PUT ADDR 


3 HERE WE HAVE THE LINE 

NUMBER OF A LINE TO GO TO 


3 WE GET THE 

ADDRESS OF 

THE 

CORRESPONDING COMPILED 


3 CODE LINE AND REPLACE 

THE 

NAMEBLOCK ADDRESS (GOTO ) 


3 OR LINE NUMBER (SKIP) 

WITH 

: THE CODE LINE ADDRESS 

CD 0141" 

..GOXs CALL 

GETREF 


3 DE~->CODE LINE 

73 

MOV 

M, E 


3 SAVE ADDRESS 

xi‘3 

INX 

H 



72 

MOV 

M, D 



18D7 

JMPR 

. »NXT 


3 TRY NEXT LINE 


5 + 

5 IF THE REFERENCE IS TO A SKIP, WE GET THE LINE 
3' NUMBER TO SKIP TO. IF IT IS LARGER THAN THE 
5 LAST LINE COMPILED, WE JUST SET IT TO THE END 
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0184' 

0186-' 

0188' 

018 A 

01 SC' 

018F' 

0190' 

01 90 ' 

0193' 

0194' 

0197' 

0198' 


019 A ' 
019D ' 

01 AO' 
01A2 ' 
0.1 AS' 
01A6 ' 


01A6 ' 
01A7 ' 
01A A ' 
01AB ' 


5 OF THE CODE (SO SK 99 WORKS EVEN IN A 5 LINE PROGRAM) 
3 IF NOT A SKIP OR GOTO, IS IMPOSSIBLE ERROR 


FE07 

. SKPs 

CPI CP.SKP 

5 SKIP REF? 

2808 


•JRZ ..SKI 


FE04 


CPI CP.IF 

3 IF IS LIKE SKIP 



NZERROR ER.IMP 

3 NO! CANT HAPPENC 

2804 

4* 

JRZ ..0006 


CD 0000sOE 

+ 

CALL ERRPGM 


03 

4. 

.BYTE ER.IMP 



+ u „0006 

s 1 


3ft 6934 

„. SKIs 

LDA CURLIN 

5 A=LAST LINE # 

BE 


CMP M 

5 IS LARGER? 

FA 017C' 


JM ... GOX 

3 SKIP TO LAST 

7E 


MOV A, M 

3A=LINE # TO SKIP 

18E2 

« 4.4H-4. 

N 

V 

5 CGO 

JMPR „ .GOX 



3 COMPILE-TIME GOTO PROCESSOR, : 

SAVES THE REFERENCE 


3 AND 

STORES THE ADDRESS OF THE 

LABLE NAME IN 


3 THE 

COMPILED CODE BLOCK 



7 

3 RETURNSs 



*1 

* 

CP . GO 



tt 

3 

u 

7 

ADDR OF NAMEBLOCK 


CD 012E' 

7 * 

CGO it 

CALL SAVREF 

5 SAVE REF LINE # 

CD 0116' 


CALL GETLAB 

3 DE->NAME OF LABEL 



CERROR ER . LBS 

3 ILLEGAL LABEL L 

3004 

4* 

JRNC . 0007 


CD 0000sOE 

4 

CALL ERRPGM 


3F 

4. 

.BYTE ER.LBS 



+» „ 0007 

s] 



« 44 -f— 




3 STUFDE 

3 SAVES THE CONTENTS OF DE IN COMPILED CODE 

« 

7 

3 NEEDS s 

3 IY ~> WHERE TO SAVE CODE 

DE = 2 BYTES TO SAVE (E FIRST, THEN D) 

« 

3 RETURNSs 

3 IY ~> AFTER LAST BYTE SAVED (D) 

7 ■ 

3 CALLSs 

3 GENCOD SAVE ONE BYTE 


7B 

CD 0000314 
7A 

C3 0000s14 


STUFDEs MOV 
CALL 
MOV 
■JMP 


A, b 

GENCOD 
A, D 

GENCOD 


3 STORE LABEL NAME 
3ADDR IN THE CODE 
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5 4H-+4* 

5 CSKP 

5 COMPILE-TIME SKIP PROCESSOR, SAVE THE REFERENCE LINE 
3 AND STORES THE LINE NUMBER TO SKIP TO IN THE COMPILED 

3 CODE 

« 

I 

5 SKIP <INTEGERS- 

u 

* 

5 <INTEGERS- — ANY POSITIVE OR NEGATIVE INTEGER GIVING 

5 THE NUMBER OF LINES TO SKIP (FORWARD,BACKWARD) 

? GENERATESs 
3 CP.SKP 

5 LINE # TO (2 BYTES) SKIP TO 

5 0 

3 CLOBBERS DE,BC 


01AE 


CSKP s CLR 

BC 




01AE 

0600 

+.IFN B-A?, ?C 

MV I 

B, 01 C 

XRA 

AID 

01 BO-' 

CD 0000s17 

CALL 

GETSKP 


5 GET NUMBER 

01B3 •" 

58 

MOV 

E, B 


5 E = SKIP NUM 

01B4" 

CD 012E •" 

IFSKPs CALL 

SAVREF 


3 SAVE REFERENCE 

01B7 " 

3A 6934 

LDA 

CURLIN 


3 A-LINE 

# OF LINE 



CLR 

DC 




01 BA-' 

1600 

+.IFN D-A?, ?E 

MV I 

D, 03 C 

XRA 

A3 3 

01BC •" 

83 

ADD 

E 


3A=LINE 

TO SKIP TO 

01BD 

5F 

MOV 

E, A 


3 D=LINE 

TO GOTO 

01 BE" 

F2 01A6"' 

JP 

STUFDE 


3 >0? OK 

THEN 

Old-' 

1E01 

MV I 

E, 1 


3 IF <0, 

DEFAULT TO 

01C3 

18E1 

JMPR 

STUFDE 


3 AND EXIT 


» 4.4.4.4. 


5 CIF 

3 COMPILE-TIME J.F PROCESSOR, GENERATES THE CODE TO TEST 
3 ARGUMENT TO IF AMD A SKIP AROUND THE LINE AFTER THE IF 


3 IF CCONDIT10N>, ZGRASS STATEMEIMTT 

•} 

5 CCONDITI0N> - ANY ZGRASS EXPRESSION, PREFERABLY ONE 

WHICH 

3 EVALUATES TO TRUE Cl> OR FALSE (0) AND CONTAINS 

3 A COMPARISON 

St . 

' . .. . ... ■ , , 

5 GENERATESs 
3 CP.IF 

5 CODE fO EVALUATE <CONDITION> • 
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? CALLS s 

5 IFSKP ~ GENERATE SKIP ADDR 
5 EVALC - COMPILE CONDITION CODE 
5 BLAIMX - SKIP TO NEXT ARG 


01C5 •" 

1E01 

« 

n .. .. 

1 

CIFs 

MV I 

E, 1 


01C7 " 

CD 01B4 


CALL 

IFSKP 

5 GENERATE SKIP ADDR 

01 Cft •" 

CD 0000 s OF 


CALL 

EVALC 

5 AND TEST CASE 

01 CD" 

C3 0000s08 

^ »*Jw »»|« 

JMP 

BLANX 

5 SKIP COMMA 



5 XBR 





5 EXECUTION TIME BRANCH ROUTINE, BRANCHES TO THE 
? GIVEN ADDRESS IN COMPILED CODE 

M 

3 

? NEEDS5 
S CP.BR 

5 ADDR OF LINE TO GO TO 

tt 

1 

5 RETURNSs 

5 IX -> NEW PLACE IN COMPILED CODE 


0.1 DO" 

DD5E00 

XBR s 

MOV 

E, 0 ( X ) 

"DE—>LINE TO GOTO 

01D3-- 

DD23 


I NX 

X 


01D5 

DD5600 


MOV 

D, 0 ( X ) 





MVD 

X, D 

SIX~>NEW LINEC 

01D8 ■" 

D5 

+ . I FI DIM 

C X II CXI, 

L PUSH 

D 

01D9 •" 

DDE 1 

+ 

POP 

X 




+ 3 




01DB-' 

C9 


RET 





« ++++ 

n 






7 

? XIF 





5 EXECUTION TIME IF PROCESSOR, EVALUATE THE EXPRESSION 
? AND IF IT IS TRUE EXECUTES THE LINE AFTER THE IF 

a 

3 

? NEEDSs 
5 CP.IF 

? CODE FOR EXPRESSION 

5 0 

; CP.BR 

■5 ADDR TO SKIP TO 

«* 

7 . - . * • 

5 RETURNSs 

5 IX -> THE BRANCH CODE AFTER THE IF (FALSE) 

5 THE CODE AFTER THE IF (AFTER THE BRANCH, TRUE) 

It 

7 

? CALLSs 

? EVLCPL - EVALUATE COMPILED CODE 
‘ POPOPND -■ POP OPERAND 

? CONVI - CONVERT VALUE 
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01 DC-- 

DD5E00 

XIF 5 

MOV 

X 

r* 

Ijj 

5 GET BRANCH ADDR 

01DF •" 

DD23 


INX 

X 


01E1 •" 

DD5&00 


MOV 

D, 0 ( X ) 


01E4-' 

DD23 


INX 

X 


01E6-" 

D5 


PUSH 

D 

5 SAVE IT 

OIE'7-' 

CD 00005.10 


CALL 

EVLCPL 

5 STACK HAS RESULT 

01E A •" 

3E04 


MVI 

S’ $IVAL 

5 CONVERT TO INTEGI 

01 EC-' 

CD 00005OA 


CALL 

CON VI 


01EF -' 

CD 0000524 


CALL 

POPOPND 

5 DE=RESULT 




TSTD 

D 

5 IF 0, RETURNC 

01F2 •" 

7A 

4 * 

MOV 

A, D 


01F3-' 

B3 


ORA 

D 

+ 13 

01F4-' 

D1 


F'UP 

D 

5 DE = BRANCH ADDR 

01F5-" 

CO 


RNZ 


5 WAS FALSE 




MVD 

X, D 

5 GO TO ITC 

01F6-" 

D5 

+. IFIDM 

cx:i LX 3, 

C PUSH 

D 

01F7 

DDE 1 

H- 

> -i 

POP 

X 


01F9" 

C9 

r J 

RET 











I CFOR 





5 COMPILE-TIME FOR PROCESSOR, GENERATES THE CODE 
5 FOR THE -FOR-' STATEMENT! 

tt 

3 

5 FOR <ASSIGNMENT>, CCONDITION>,<INCREMENT 

5 BODY OF LOOP ( ANY STATEMENTS) 

5 NEXT <NAME> 

V 

? <ASSIGNMENT> - ANY ZGRASS ASSIGNMENT STATEMENT, 

5 THE <NAME> PART HERE MUST BE THE SAME AS THE 

5 <NAME> IN THE NEXT IN ORDER FOR IT TO WORK 

S CCONDITI0N> - ANY ZGRASS EXPRESSION, PREFERABLY 

S IT DOES A COMPARISON AND EVALUATES TO TRUE 

5 <1) OR FALSE (0) 

5 <INCREMENTS - ANY ZGRASS EXPRESSION WHICH EVALUATE 

5 TO A FLOATING POINT NUMBER, IT WILL BE ADDED 

5 TO THE <NAME> IN THE NEXT STATEMENT 

<NAME> - ANY NAME, ARRAY ELEMENT, SPECIAL VAR 
S (ANYTHING WHICH MAY BE ASSIGNED INTO) 

*t 

* 

? RETURNS! 

5 CODE FOR CASSIGNMENT> 

5 0 

5 CP.IF (IF STATEMENT) 

5 LINE # OF LINE AFTER NEXT (2 BYTES) 

7 CODE FOR -CCOND IT10N> 

5 0 

5 CODE FOR STATEMENTS IN BODY 

5 OF FOR LOOP (EACH NULL TERMINATED) 

5 CODE TO PUSH CNAME> IN NEXT STATEMENT 

5 CODE TO EVALUATE CIMGREMEMT> 

5 CP.INC (INCREMENT) 

5 CP.BR (BRANCH) 

5 ADDRESS OF IF STATEMENT (2 BYTES) 
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5 0 

a 

* 

S NOTESa 

S' IF THE <NAME> USED IN THE NEXT AND ASSIGNMENT 
5 DO NOT MATCH IT'S TUFF TITS BECAUSE THERE IS NO WAY 

5 TO CHECK AT COMPILE TIME. (CONSIDER THE CASE OF AN 

? ARRAY ELEMENT WHICH IS ONLY KNOWN AT EXECUTION 
5 TIME) NESTED FOR'S WILL WORK, ERROR MESSAGE ARE 
a ISSUED IF THE NEXT'S AND FOR'S ARE NOT MATCHED 

It 

? 

a CALLSa 

5 CLRIY - CLEAR IND ON IY S< BACKUP 
5 ClF - COMPILE IF CODE 
5 GENCOD - GENERATE i BYTE OF CODE 
5 BLANX - GET NEXT ARG 
a EVALC - GENERATE COMPILED CODE 
a KISNL -- CHECK END OF LINE 
? LINCPL - COMPILE ONE LINE 

5 LINEND - PROCESS END OF LINE 

5 IPUSH,IPOP ~ PUSH POP OFF NCU 
5 OPiJSH - GENERATE PUSH OF OPERAND 
a STUFDE - SAVE DE IN COMPILED CODE 
5 FPUSH — PUSH FLOATING NUMBER ON NCU 


CURLIN - LINE # OF CURRENT LINE 


01FA' CFORa 

5 + 

5 WE BACK UP OVER THE CP.FOR AND GENERATE THE CODE 
S FOR THE <ASSIGNMENT> PART. THEN THE CODE FOR THE IF 
? CCONDITI0N> IS GENERATED 


01 FA' 

CD 0268' 

CALL 

CLRIY 

5 DEC IY, CLEAR 

01FD •" 

CD 0000 a OF 

CALL 

EVALC 

;GENERATE ASSIGN CODE 

0200 

CD 0000 a 08 

CALL 

BLANX 

? HL~>GONDITION 

0203" 

FDE5 

PUSH 

y 

aSAVE ADDR OF IF 

0205.4 

3E04 

MVI 

A,CP.IF 

a GENERATE IF 

0207 ' 

CD 0000a14 

CALL 

GENCOD 

a SAVE IT 

020A •" 

CD 01C5' 

CALL 

GIF 

a FOR CONDITION 

020D-" 

E5 

PUSH 

H 

a SAVE INC ADDR 

020E ' 

CD 025C' 

CALL 

L INEND 

a END OF LINE 

0211 •" 

FD23 

I NX 

tt 

Y 

a END OF EXPRESSION 



5 WE PARSE LINE 

S UNTIL THE 

NEXT STATEMENT HAS BEEN FOUND 


5 IF THERE IS A NEXT, THE LAST TOKEN WILL. BE CP.NXT 
? (BEFORE THE ENDING NULL OF THE LINE) ANY OTHER FOR/NEX 
T 

a PAIRS WILL HAVE BEEN PARSED OVER BY NOW 

, — 

0213' CD OOC1 ■- NXTa CALL LlNCPL 5 DO A STATEMENT 

CERROR ER.NXT 5 MISSING NEXT![ 

0216-' 3004 + JRNC ,.,.0008 
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0218*" 

CD 0000"OE 

+ CALL I 

ERRPGM 


02 IB" 

44 

+ .BYTE 

ER.-NXT 


021C"' 


+.„0008s1 



0210“' 

FD7EFE 

MOV 

A, ~2(Y) 

SCHECK FOR NEXT 

02 IF" 

FE06 

CPI 

CP.NXT 

5 IF NOT, JUST 

0221 •- 

20F0 

•JRNZ 

. . NXT 

5 CONTINUE 

0223 •** 

FD2B 

DCX 

Y 

% IY—>NULL 

0225-' 

CD 0268“ 

CALL 

CLRIY 

? DEC I Y , CLEAR 



5 THE NEXT HA: 

S BEEN FOUND, IT HA 

S ALREADY GENERATED 



5 THE CODE TO 

PUSH THE <NAME> PART. WE MUST GET 



5 THE POINTER 

TO THE <INCREMENT> 

EXPRESSION AND 



; GENERATE THE CODE FOR IT NOW. 

IF THERE IS NONE, 



5 A DEFAULT VALUE OF 1.0 IS PUSHED 

0228 

E3 

XTHL 


,HL->INCR EXPR 

0229-' 

CD 0000 s1C 

CALL 

KISNL 

?IS THERE ONE? 

022C *** 

20 OD 

JRNZ 

. . INC 

? YES? PARSE IT 

022E 

21 029B" 

LX I 

H,FONE 

5 HL~>1.0 

0231-' 

CD 0000 s11 

CALL 

FPUSH 

;PUSH ON NCU 

0234' 

3E06 

MV I 

A,$FVAL 

’FLOATING TYPE 

0236 •" 

CD 0000s23 

CALL 

OPUSH 

5 GEN PUSH CODE 

0239-' 

1805 

JMPR 

„ . BR 

5 GENERATE BRANCH 

023B-" 

CD 0000 s OF 

„.INCs CALL 

EVALC 

? GEN INC CODE 

023E •" 

FD2B 

DCX 

Y 

5 SKIP THE NULL 

0240 •' 

El 

..BR s POP 

H 

?RESTORE HL 

0241-' 

3E06 

MVI 

A,CP.INC 

5 AND INC IT 

0243/' 

CD 0000s14 

CALL 

GENCOD 




t T 

", NOW THE BRANCH BACK TO THE IF 

STATEMENT IS GENERATED 



? ON THE STACK WE SAVED THE ADDRESS OF THE CP.IF, WE • 



? STUFF THIS 

IN THE BRANCH ADDRE 

!SS AND STUFF THE LINE 



5 NUMBER OF THE LINE AFTER THE NEXT INTO THE IF"'S 



S DISPATCH FIELD <2 BYTES AFTER 

THE CP.IF, SEE CIF) 

0246 '- 

3E05 

1 

MVI 

A,CP.BR 

?BRANCH TO 

0248-' 

CD 0000s14 

CALL 

GENCOD 

;THE CONDITION 

024B-" 

D1 

POP 

D 

5DE->IF TEST 

024C •" 

CD 01A6 -' 

- CALL 

STUFDE 

5 SAE IT 

024F-' 

13 

I NX 

D 

?DE-->IF LINE # 

0250"' 

FD23 

I NX 

Y 

5 LEAVE A NULL 

0252"' 

3A 6V34 

LDA 

CURLIN 

5 A=CIJRRENT LINE # 

0255-- 

3C 

I NR 

A 

“ NEXT LINE # 

0256"' 

12 

STAX 

D 

5 SAVE FOR IF 



1ST 

M 

3 IF NULL, EXIT! 

0257 •" 

7E 

+.IFN M 

-A?, ?r. MOV 

A, M 1 

0258"' 

B7 

+ ORA 

AT 


0259"' 

C8 

RZ 



025A -' 

2B 

DCX 

H 

■5 BACK OVER NEWLINE 

025B-" 

C9 

RET 




3 . . ; y-/; ' ;r ‘- * • , 

5 L INEND 

5 SKIPS JO THE BEGINNING OF THE NEXT LINE 
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NEEDS'! 

HL -> ANYTHING 


RETURNS! 



■ 1 

5 HL 

-> START 

OF NEXT 

LINE 

OR NULL AT THE 



ts 

7 

tt 

V 

END OF 

THE STRING IF 

NO NEXT LINE 

025C 


tt _ _ _ _ 

* 

LINEND! 

TST 

M 


3 IF NULL, RETURNII 

LL 025G ** 

7E 

+ .IFN M 


-A?, ?C 

MOV 

A, M 3 

025D-' 

B7 

+ 

ORA 

A3 



025E-* 

C8 


RZ 




025F *** 



I NX 

H 


3 SKIP TO NEXT ONE 

0260 **■ 

FEOA 


CPI 

NL 


3 NEWLINE? 

0262 

C8 


RZ 



5 RETURN THEN 

0263 x 

FE3B 


CPI 

7 


5 SEMI? 

0265 

C8 


RZ 



3 RETURN THEN 

0266" 

18F4 


JMPR 

LIMEND 


5 KEEP CHECKIN"' 



» ++. 4 . 4 . 







7 

3 CLRIY 







3 LITTL 

E ROUTINE TO BAQ 

" UP 

IY ONE BYTE ANDCLEAR WHERE 



3 IT POINTS, THIS IS SO 

MANY- 

INSTRUCTIONS THAT I MADE 



5 IT A 

It 

SUBROUTINE, ONLY 

USED 

IN COMPILER CODE 

0268“’ 

FD36FFOO 

CLRIY! 

MV I 

-1 (Y) ,0 


3 CLEAR BACK 1 

026C ** 

FD2B 


DC X 

Y 


5 DEC PTR 

026E 

C9 


RET 





5 H—|—|—j- 
* 

5 CNXT 

3 COMPILE-TIME NEXT PROCESSOR, GENERATES THE CODE TO PUS 
H 

3 THE VARIABLE NAME OF THE NEXT FOLLOWED BY A CP.NXT TOK 
EM 

5 TO TELL CF'OR THE NEXT HAS BEEN FOUND 

7 

5 NEXT <NAME> 

w 

•I 

5 <NAME> - ANY ZGRASS NAME, SOMETHING WHICH MAY BE 
3 ASSIGNED TO 

? ■ ■ *■ 

?' GENERATES! 

5 CODE TO PUSH <NAME> 

3 CP.NXT < NEXT TOKEN) 

3 0 


3 CALLSs 

3 EVALC - GENERATE COMPILED CODE 


CLRIY 


CLEAR IND ON IY & BACKUP 


026F" CD 0268"' 

0272 •" CD 0000 s OF 


CNXT! 


CALL 

CALL 


CLRIY 

EVALC 


3 DEC IY, CLEAR 
3 GENERATE VAR PUSH 
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0:275'" FD36FF06 MVI -1 (Y), CP. NXT 5 NEXT FOR FOR 

0279C9 RET 

?. +-J-++ 

« 

v **" % i 

; x inc 

■ EXECUTION-TIME INCREMENT ROUTINE - USED ONLY BY 
? FOR/MEXT TO ADD THE INCREMENT TO THE NEXT VARIABLE 
7 

! NEEDSs 

? IY—> INCREMENT TO ADD 
« NAME TO ADD IT TO 

ft 

7 

5 RETURNSs 

5 IY—> NAME WITH INCREMENT ADDED 
7 

5 CALLSs 

5 PSHOPND 7 POPOPND - PUSH,POP OPERAND 

5 GETOPND - GET OPERAND 
5 GETVAL - GET VALUE OF NAME 


DONUC - DO NCU OPERATION 




3 ASS 

«t 

7 

IGN - AS 

SIGN VALUE 

TO NAME 

027A" 

0606 

* 

X INC s 

MVI 

B,$FVAL 

"MAKE SURE IT'S 

027C *“ 

CD 0000sOA 


UA LL 

CON VI 

5 FLOATING POINT 

027F- 

CD 0000 s24 


CALL 

POPOPND 

5 GET INC ON NCU 

n*282 **’ 

CD 0000s16 


LALL 

GETOPND 

FETCH THE NAME 

0285"' 

CD 0000 s 25 


CALL 

PSHOPND 

* PUSH THE NAME 

0288 *** 

CD 0000s18 


CALL 

GETVAL 

;CONVERT TO VAL 

028B *“ 

CD 0000s24 


CALL 

POPOPND 

VALUE ON NCU 

028E 

3E10 


MVI 

A,N.FADD 

? ADD THEM 

0290 

CD 0000sOD 


CALL 

DONCIJ 


0293 *" 

3E06 


MVI 

A,$FVAL 

? PUSH RESULT 

0295*“ 

CD ,0000 s 25 


CALL 

PSHOPND 


0298’ 

C3 0000 s 07 


JMP 

ASSIGN 

5 ASSIGN TO NAME 

029B-" 

0000 0180 

NEs 

. WORD 

OH,0180H 

;FLOATING 1.0 


.END 







